|
But the radio buttons are on the options form. That means that after you've done your show dialog you can't reference the radiobutton values because the options form is gone. You need to pass the value of your radio buttons back to the main form when the ok button is clicked by a global/public variable.
|
|
|
|
|
marshmayllow wrote: I put the code in the btnOK_click event
IF options.dialogresult = windows.forms.dialogresult.OK Then
If radiobutton1.checked = true then
picMain.image = picA.image
End if
If radiobutton2.checked = true then
picMain.image = picB.image
End if
End If
If thise code is on the Options form, it won't work. Similarly, if it's on the Main form, it wont work for different reasons.
You OK button event handler on the Options form should normally do nothing but validate the information on the form. Since all you have is a couple of radio buttons, you really should even have an event handler for the OK button.
This could should go in the section where you created and displayed the Options form:
Dim optionsForm As New OptionsForm
If optionsForm.ShowDialog() = DialogResult.Ok Then
If optionsForm.radiobutton1.checked Then
picMain.image = picA.image
End if
If radiobutton2.checked = true then
picMain.image = picB.image
End if
End If
This is only a sample of what's wrong. Depending on your requirements for functionality, there are MANY more problems with this code.
|
|
|
|
|
Your first port of call should always be to set breakpoints and step through your code, to see exactly what is going wrong. Nested 'if's obviously always work, if coded correctly.
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Ok I've tried using:
Dim frmOptions As New frmOptions
frmOptions.ShowDialog(Me)
If frmOptions.ShowDialog() = Windows.Forms.DialogResult.OK Then
If radiobutton1.checked = true then
picMain.image = picA.image
End if
..etc.
This however did not work too, and instead displayed the options form again after clicking 'ok' the first time
One thing i've realised is that the code works when I put it in the mainform_load event. It just doesnt work when I put the exact codes under the btnOptions_click event. Oh no.. this is getting really strange  !
|
|
|
|
|
I create and populate a dataset based on a database based on a sqlquery (da.Fill(ds, "SomeTable")).
This works great to create the columns and populate the rows, but I was hoping to also inherit the column constraints.
My end goal is to create a XSD schema object. (ds.WriteXmlSchema(“newSchemaFile.XSD”). That includes column constrants.
Thanks in advance!
Kermit
|
|
|
|
|
Hi guys
I was trying to display the popup window in the article at http://www.codeproject.com/vb/net/popup.asp my problem is that the poup will not close until the mouse is clicked outside it but what I need is that the window closes when the mouse leaving the button.
Can anyone help me please
Regards
Saad
|
|
|
|
|
Post your code so we can review it.
______________________
stuff + cats = awesome
|
|
|
|
|
I am trying to write a simple procedure to update a record in a data base using the following:
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
If m_dtEmployees.Rows.Count <> 0 Then
m_dtEmployees.Rows(m_rowPosition)("Employee") = txtEmployeeName.Text
m_dtEmployees.Rows(m_rowPosition)("Password") = txtPassword.Text
m_daDataAdapter.Update(m_dtEmployees)
End If
End Sub
End Class
If I make a change to the txtEmployeeName textbox and hit save it works fine. If I make a change in the txtPassword text box I get a Syntax error in UPDATE statement error. I used the m_dtEmployees.Columns.Contains method to check to make sure it saw "Password" as a column and it does...
Any thoughts?
My goal in life is to be the kind of person my dog thinks I am.
|
|
|
|
|
By what you've posted I cant see anything that would be causing a problem.
When I get errors like this I always look at the SQL command that is being executed. (Either by examining the Update command in the Adapter or by doing a trace on SQL and seeing what exactly is being executed.
Try looking at that, and if you don't see anything wrong with the SQL, post it here and I'll check it out.
Good luck.
|
|
|
|
|
Have you tried EndEdit for the datarow just before the m_daDataAdapter.Update(m_dtEmployees)?
Alexei Rodriguez
|
|
|
|
|
I'd like to be able to configure this programmatically or with a script.
The two properies are: tiff output, and the folder where the tif will appear.
I had found on Google that printers can be setup via scripts. But I'm not familiar with the scripting language.
Thanks!
|
|
|
|
|
|
The question is how does one programmatically set the two properties (tiff output, and the default print folder).
|
|
|
|
|
From what I've been able to mess around with so far, it's not looking good. The only thing you cannot do is set the filename. It will always prompt you for the filepath.
|
|
|
|
|
Hey Dave,
I'm not trying to set the file name.
When my app starts, I just want to select the output as a Tif, and I want to set the path to the current users data folder (rather then MyDocuments).
|
|
|
|
|
I wonder if anyone could help me. I have the following function I took from VB6 and entered it into VB.Net 2005. When I try and compile it, I get lines under Scripting.FileSystemObject & Scripting.Folder. I know you have to use Imports but what one do I use. This function is in a module. If anyone has a different way to do a files in folder count let me know.
Public Function FileCount(ByVal DirectoryName As String) As Long
'E.g. MsgBox FileCount("C:\windows")'
Dim objFS As New Scripting.FileSystemObject
Dim objFolder As Scripting.Folder
If objFS.FolderExists(DirectoryName) Then
Set objFolder = objFS.GetFolder(DirectoryName)
FileCount = objFolder.Files.Count
End If '
Set objFolder = Nothing
Set objFS = Nothing
End Function
|
|
|
|
|
This MIGHT help:
The FSO model is contained in the Scripting type library, which is located in the file Scrrun.dll. If you don't already have a reference to it, you can create one.
To create a reference to the Scripting type library (Scrrun.dll)
1. On the Project menu, click Add Reference, and then click the COM tab.
2. Choose Microsoft Scripting Runtime from the Component Name list, and then click Select.
You can now use the Object Browser to view the FSO model's objects, collections, properties, methods, events, and constants.
My goal in life is to be the kind of person my dog thinks I am.
|
|
|
|
|
Check out the System.IO.Directory class, it'll do the counting stuff for you.
|
|
|
|
|
There is no import for the FileSystemObject. You would normally have to set a reference to the Windows Scripting Host. But, it's pointless to do this under the .NET Framework.
Scrap this code and rewrite it using the classes in the System.Io namespace. The FileSystemObject is not needed in VB.NET. Also, the return type, Long in VB6, is a 32-bit signed interger. In VB.NET, this same Long datatype name is a 64-bit signed integer. Be careful when translating VB6 code to VB.NET.
Imports System.Io
.
.
.
Public Shared Function GetFileCount(ByVal folderPath As String) As Integer
If Not Directory.Exists(folderPath) Then
Throw New DirectoryNotFoundException("The specified path was not found.")
End If
Dim filenames As String()
filenames = Directory.GetFiles(folderPath)
Return filenames.Length
End Function
|
|
|
|
|
Try using the System.IO functions rather than using the old VB6 functions. When you are coding in .Net you should always look for the new ways to do things rather than the old VB6 functions, you never know when they are going to cease to exists, so you might as well conform now.
<br />
Imports System.IO<br />
<br />
<br />
Private Function GetFileCount(Byval path as String) as Integer<br />
Dim dirInfo As New IO.DirectoryInfo(path)<br />
Dim files() As FileInfo = dirInfo.GetFiles()<br />
return files.GetUpperBound(0) + 1<br />
End Function<br />
Mike Lasseter
|
|
|
|
|
I am trying to insert an exception in an access table. The exception is 'Access to the path 'C:\System Volume Information' is denied." I want this exception to be entered into a table while the program continue to scan for files. However, when I try to insert the exception into the db table I keep getting the error Syntax error (missing operator) in query expression "Access to the path 'C:\System Volume Information' is denied."
Here is my code:
Try<br />
Dim fileName As String<br />
patterns = Array.ConvertAll(patterns, New Converter(Of String, String)(AddressOf ConvertFilters))<br />
ListBox1.BeginUpdate()<br />
ListBox1.Items.Clear()<br />
For Each folder As String In enteredFilePaths<br />
For Each file As String In My.Computer.FileSystem.GetFiles(folder, FileIO.SearchOption.SearchAllSubDirectories, patterns)<br />
fileName = System.IO.Path.GetFileName(file).ToLower<br />
If ListBox2.FindStringExact(fileName) = -1 Then<br />
ListBox1.Items.Add(fileName)<br />
End If<br />
Next<br />
Next<br />
ListBox1.EndUpdate()<br />
Catch ex As Exception<br />
ErrorLog(ex.Message)<br />
End Try
Private Sub ErrorLog(ByVal Exception As String)<br />
Dim myConnString As String = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Application.StartupPath & "\File.mdb"<br />
Dim myInsertQuery As String = "INSERT INTO tblErrorLog (Error) VALUES ('" & Exception & "')"<br />
Dim myConnection As New OleDbConnection(myConnString)<br />
Dim command As New OleDbCommand(myInsertQuery, myConnection)<br />
Dim retvalue As Integer<br />
<br />
myConnection.Open()<br />
retvalue = command.ExecuteNonQuery<br />
<br />
'Close database connection<br />
myConnection.Close()<br />
<br />
End Sub
jds1207
|
|
|
|
|
Escape the single quote and then insert.
|
|
|
|
|
Use parameterized queries to do the update and you won't have to worray about escaping anything. It'll be done for you. Read[^] for more information and other reasons why it's a good idea to use parameters instead of string concatenation.
|
|
|
|
|
i am using vb.net 2003.i am doing my project in vb.net windows application.the following code is for sending mail.
Dim mymailmessage As New MailMessage
Try
Dim bSuccess As Boolean = True
mymailmessage.From = FromTextBox.Text
mymailmessage.To = "kumar@indocanapparel.com"
mymailmessage.Bcc = sb.ToString
mymailmessage.Subject = SubjectTextBox.Text
mymailmessage.Body = MessageTextBox.Text
mymailmessage.BodyFormat = MailFormat.Text
mymailmessage.Priority = MailPriority.Normal
SmtpMail.SmtpServer = "127.0.0.1"
SmtpMail.Send(mymailmessage)
DisplayLabel.Text = "Your Mail was Successfully Sent"
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
the above code,i written in vb.net windows application.
i run the project,then i click send button means,the following error is display.
"Could not access 'CDO.Message' object"
how to solve this?plz help.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
