I'm using visual basic 6 enterprise edition. I've created the project and form files (and saved) but when I go to run (F5), only the form code is displayed.Normally in run mode, you can see and sample/test the actual GUI. Please advise. I've also tried to compile (make project1.exe under the FILE menu) but the created .exe fails to open/run.
Expert in SQL Server, .NET, C#, VB. MS Access, Oracle.
Hi I can certainly help you with that. First with your exe. What is the Starup object that you specified in your preferences? This could be the first form that you present or a Sub Main() in a module within your project. If something is specified that has no code within will cause this issue. As far as trying to run through the VB IDE, I would need you to zip up your project files and post them on WikiSend so I can retrieve them to diagnose the issue. Let me know if you can do this and I can have it back to you in a timely fashion. Thanks for choosing just answer.
* Hi, please provide your details so I can zip my files and send them to you via WIKISEND. My WIKISEND Account Name/ID is: NJE1980
* Please provide your WIKISEND details so you can retrieve these zipped files. I'm a first-timer and need a little guidance.
* My source code is as follows (for two samples):
<1st sample>
Private Sub Form_Load() Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False Option5.Value = False Option6.Value = False Option7.Value = False Option8.Value = False Option9.Value = False Option10.Value = False End Sub
Private Sub Option1_Click() Text1.Text = "INCORRECT!" Text1.BackColor = vbRed Image1.Visible = False End Sub
Private Sub Option2_Click() Text1.Text = "CORRECT!" Text1.BackColor = vbGreen Image1.Visible = True End Sub
Private Sub Option3_Click() Text2.Text = "INCORRECT!" Text2.BackColor = vbRed Image2.Visible = False End Sub
Private Sub Option4_Click() Text2.Text = "CORRECT!" Text2.BackColor = vbGreen Image2.Visible = True End Sub
Private Sub Option5_Click() Text3.Text = "INCORRECT!" Text3.BackColor = vbRed Image3.Visible = False End Sub
Private Sub Option6_Click() Text3.Text = "CORRECT!" Text3.BackColor = vbGreen Image3.Visible = False End Sub
Private Sub Option7_Click() Text4.Text = "INCORRECT!" Text4.BackColor = vbRed Image4.Visible = False End Sub
Private Sub Option8_Click() Text4.Text = "CORRECT!" Text4.BackColor = vbGreen Image4.Visible = True End Sub
Private Sub Option9_Click() Text5.Text = "INCORRECT!" Text5.BackColor = vbRed Image5.Visible = False End Sub
Private Sub Command1_Click() 'TERMINATE Unload Me End End Sub
Private Sub Command2_Click() 'ABOUT MsgBox "Written by N. J. Elvy and dedicated to B.L, C.W, N.P, P.C, G.P, S.P - The I.T. Kings and Queens", vbOKOnly, "About" End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
<2nd Sample>
Private Sub Command2_Click() MsgBox "Written by N. J. Elvy and dedicated to D.W.", vbOKOnly, "About" End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False Option5.Value = False Option6.Value = False Option7.Value = False Option8.Value = False Option9.Value = False Option10.Value = False End Sub
Private Sub Option1_Click() Text1.Text = "CORRECT!" Text1.BackColor = vbGreen Image1.Visible = True End Sub
Private Sub Option10_Click() Text5.Text = "INCORRECT!" Text5.BackColor = vbRed Image5.Visible = False End Sub
Private Sub Option2_Click() Text1.Text = "INCORRECT!" Text1.BackColor = vbRed Image1.Visible = False End Sub
Private Sub Option3_Click() Text2.Text = "CORRECT!" Text2.BackColor = vbGreen Image2.Visible = True End Sub
Private Sub Option4_Click() Text2.Text = "INCORRECT!" Text2.BackColor = vbRed Image2.Visible = False End Sub
Private Sub Option5_Click() Text3.Text = "CORRECT!" Text3.BackColor = vbGreen Image3.Visible = True End Sub
Private Sub Option6_Click() Text3.Text = "INCORRECT!" Text3.BackColor = vbRed Image3.Visible = False End Sub
Private Sub Option9_Click() Text5.Text = "CORRECT!" Text5.BackColor = vbGreen Image5.Visible = True End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Thank you.
id = fdmconsulting.
You can simply upload the file and it will assign and ID to the file. Cut and paste the id of the file and I can go retrieve it.