|
I have a project that has a RichTextBox that a user can enter data. The text box is called txtOut. I have a CommonDialog control and a command control called cmdSave with this code attached:
Private Sub cmdSave_Click()
Dim sFileName As String
sFileName = txtOut.Text '& theExtension
' Set CancelError is True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Set flags
CommonDialog1.Flags = cdlOFNHideReadOnly
' Set filters
CommonDialog1.Filter = "All Files (*.*)|*.*|Hex Files" & _
"(*.hex)|*.hex|Assembly Files (*.asm)|*.asm"
' Specify default filter
CommonDialog1.FilterIndex = 2
' Display the Open dialog box
CommonDialog1.ShowSave
' Display name of selected file
MsgBox CommonDialog1.FileName
Exit Sub
ErrHandler:
'User pressed the Cancel button
Exit Sub
End Sub
Everything works fine except after I name the file to be saved and hit the save button in the dialog window, it doesn't create the save file. I'm guessing it doesn't see the data in the text box. Can someone give me some help please? Thanks!
|
|
|
|
|
It's because the CommonDialogs only display dialogs to gather information from the user. So the Open, Save and Print dialogs don't actually do the opening, saving or printing for you. You have to implement that yourself. So in your case you have to check that the user has succesfully OKed a filename and then use something like a StreamWriter to save your file.
|
|
|
|
|
I am not an experienced coder, is there sample code or information available on how to do that?
Thanks!
|
|
|
|
|
Here's something I've done in the past, you should be able to pull it apart for your own stuff:
Private Sub SaveINIFile()<br />
Dim strCurrentSection As String<br />
Dim ptrRecord As INILayout<br />
<br />
If strFileName = "" Then Return<br />
<br />
ptrFileWriter = New System.IO.StreamWriter(strFileName)<br />
<br />
For Each strCurrentSection In colINISections<br />
ptrFileWriter.WriteLine("[" & strCurrentSection & "]")<br />
For Each ptrRecord In colINIEntries<br />
If ptrRecord.strSection = strCurrentSection Then<br />
ptrFileWriter.WriteLine(ptrRecord.strHeader & "=" & ptrRecord.strValue)<br />
End If<br />
Next<br />
Next<br />
<br />
ptrFileWriter.Close()<br />
End Sub
|
|
|
|
|
It's quite simple
Open CommonDialog1.FileName For Output As #1
Print #1, "Hello!"
Print #1, "Green is Purple"
Print #1, "--------"
Print #1, Text1.Text
Close #1 HTH
=====
Phlip
Always proofread carefully to see if you any words out
|
|
|
|
|
Thanks to everyone for their help! This is what I ended up using:
Private Sub cmdSave_Click() 'When users clicks Save
'note: the entire file is stored in a string
CommonDialog1.Filter = "Hex files (*.HEX)|*.HEX"
CommonDialog1.ShowSave 'display Save dialog
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, txtOut.Text 'save string to file
Close #1 'close file
End If
End Sub
|
|
|
|
|
I'm trying to get my Data Access classes to provide a Bind method to allow a member variable to be bound to a control, such as a textbox:
Customer.Bind( TextBox1, Customer.m_strUserName )
Inside the Bind method, I'm adding my own eventhandler to the control, and attempting to store the references to the control and the passed member variable into a collection, so this way many controls can be bound against the classes member variables:
Public Sub Bind( ByRef ptrControl as System.Windows.Forms.TextBox, ByRef ptrMember as Object )<br />
<br />
AddHandler ptrControl.KeyPress, AddressOf ConsumeKeyPress<br />
<br />
Dim ptrElement as new ControlCollectionGroup()<br />
ptrElement.ptrControl = ptrControl<br />
ptrElement.ptrMember = ptrMember.Clone()<br />
colControls.Add( ptrElement )<br />
End Sub
Where the type being added into the collection is defined as:
Structure ControlColelctionsGroup<br />
Public ptrElement as System.Windows.Forms.TextBox<br />
Public ptrMember as Object<br />
End Structure
Now the problem is to do with the references being passed for the control and member variable. When they are passed into Bind() as references, they work, and the code can access the original control and variable as you would expect.
After this stage, when the references are passed to an element in a collection, or just stored within normal types within the class - the reference seems to disappear - and I get copies of the textbox and the member object instead. This then renders the whole thing useless as I need to be able to exchange data between the control and the member variable whenever a keypress takes place.
So is there a most learned VB.NETter that can help me with these questions:
1. Can I reference a reference?
2. Is there something similar to StrPtr() I can use which was dropped after VB6.
3. Is there a better way of binding a control to a member variable?
Thanks for reading this novel.
|
|
|
|
|
TextBox and Object are reference types. You should pass a reference type ByVal unless you need to change what the reference points to inside the called function. I can't think of a reason offhand.
If you want to keep referring to the same object within your collection, you shouldn't use Clone. That's for making a copy of the remote object.
This kind of thing is best dealt with using diagrams, unfortunately. I'll try with words.
Say you call Bind like so:
Bind( TextBox1, m_oData1 ) TextBox1 isn't actually the text box itself: it's just a reference to the text box. If, inside Sub Bind, you had the statement:
ptrControl = TextBox2 the field TextBox1 would now refer to the same control as TextBox2.
In your code, when you use
ptrElement.ptrMember = ptrMember.Clone() that makes a new object which is a copy of the object referred to by ptrMember, then sets ptrElement.ptrMember to point to the new object. There's no link between this object and the original ptrMember.
I think your implementation will work if it looks more like:
Public Sub Bind( ByVal ptrControl as System.Windows.Forms.TextBox, ByVal ptrMember as Object )
AddHandler ptrControl.KeyPress, AddressOf ConsumeKeyPress
Dim ptrElement As New ControlCollectionGroup()
ptrElement.ptrControl = ptrControl
ptrElement.ptrMember = ptrMember
colControls.Add( ptrElement )
End Sub Hope this helps.
Personally I find reference languages to be more, not less, confusing than languages with explicit pointers. I can follow explicit pointers because it's obvious - to me - what's happening.
|
|
|
|
|
Thanks for your suggestion, but unfortunately the references are still lost, and it would appear when the control and object are passed into the collection, they are passed copies.
Sorry for leading you up the garden path by using that .Clone(), I was experimenting in the code - needless to say that didn't work.
Anyhows, have implemented exactly what you specified, and the behaviour suggests that you cannot have a reference to a reference!!!
In the good old days when I were but a young lad, and sweets were a penny each, and mobile phones were the size of a house, I could just use StrPtr(), but this feature has been ripped out of .NET...........
|
|
|
|
|
I am looking for some help regarding using the speech recogntion (DirectSR).
Anyone with some idea can help. WOuld be useful for others in a similsr situation.
S.Seetharaman.Iyer
|
|
|
|
|
OK. What are you looking for help with?
|
|
|
|
|
Hi. I have three simple C# classes that I would like ported to VB.NET. If anyone would be willing to take a look, I'd appreciate it. Please let me know. There is no pay. But you will, of course, receive credit...and gratitude.
Thanks.
|
|
|
|
|
I'll give it a try.
Bo Hunter
bovsnet@msn.com
|
|
|
|
|
I'll do it.
Mail them to wcoonrod@visi.com
|
|
|
|
|
Does anybody know, how to import data from microsoft Project Planner
|
|
|
|
|
I myself found something on MSDN that I can get object of MSPRJ9.obl. And then I can create object MPP. But anybody knows is that Object Library is distributable.
Regards,
Samya
|
|
|
|
|
Hello,
I was wondering about how am I able to show another Form object from vb.net? Also how can I access of modify a property of an object
e.g.:
Form2.Text1.Text = "testing"
Thanks
Best Regards
Emre YAZICI
|
|
|
|
|
This should work:
You have to create an instance of the other form before you can change properties on it.
Dim otherForm As New Form2()
otherForm.Show()
otherForm.TextBox1.Text = "hello"
Beware the chickens, for in their silence, they plot...
Life is too short to be taken seriously.
-- Oscar Wilde
|
|
|
|
|
Can someone explain to me how to perform this function
in VB.Net?
A more detailed description can be found at
http://www.netfor2.com/checksum.html
I need to perform a 2's complement sum CheckSum on some data before sending it to a serial device and
when recieving data from the device.
Thanks for any help.
=================================
When i was in school all I wanted was to get out into the real world.
Now that I'm in the real world all I want is to go back to school.
|
|
|
|
|
all you should need to add is the "not" function
like:
result = not checksum
pxw
|
|
|
|
|
My previous really gives a ones compliment -- not really what you asked for. In order to perform a twos compliment I prsonaklly would revert to tyhe interoperability of the .NET languages and write it in C++, then like it to Visual Basic.
If you decide to try that, start a Visual C++ .NET Class library. then add the following code to the file that holds the name you gave the library, compile and link to it.
NOTE that the code given works only with 32-bit integers, a similar thing sould be done for larger or smaller integers.
int TwoCompl(int val)
{
__asm {
mov eax, val
not eax
mov val, eax
};
return val;
}
|
|
|
|
|
I was trying to install a program onto another computer, but the setup was aborted because the target computer did not have the .NET framework.
During deployment, there was a warning that said
"WARNING: This setup does not contain the .NET Framework which must be installed on the target machine by running dotnetfx.exe before this setup will install. You can find dotnetfx.exe on the Visual Studio .NET 'Windows Components Update' media. Dotnetfx.exe can be redistributed with your setup."
I've located that dotnetfx.exe on the component CD, but DOES ANY COMPUTER THAT I WISH TO INSTALL MY APPLICATION REQUIRE THE INSTALLATION OF THE .NET FRAMEWORK?
If so, what is the proper procedure on including that file into my setup?
also, is there anyway around installing the .Net Framework.
Thank you for your time.
The Jazz Master 6000
DJ Badknees
Parma Grind Crew - www.geocities.com/parmagrindcrew
|
|
|
|
|
Ya, any PC you want to run an application you've written in .NET needs to have the DotNET framework installed. PC's that have Windows XP or Windows 2003 will have the framework already installed.
I'm not sure how to detect if the person has the .NET framework installed so I can't help you with that.
Beware the chickens, for in their silence, they plot...
Life is too short to be taken seriously.
-- Oscar Wilde
|
|
|
|
|
Windows XP doesn't have the framework by default. Allegedly it will find its way into an upcoming service pack. Not sure about 2003 though, you may be right.
|
|
|
|
|
Hello all
I want to write a VB Macro that will forward a message that I have selected. For all intent and purposes I am trying to emulate the Forward button.
I know that if I code this
Set myForward = myFolder.Items(1).Forward
Then it will forward the first message in my inbox (assumign that my inbox is the folder that it has been sent to)
Is there a way to change it so that it forwards the messge I select, and not simply the first message. I'm confused as how to get the selection?
Anybody know anything abotu VBA and outlook?
thanks
Nick
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
