|
The problem is because of incorrect referencing.
Consider this:
You are creating an Instance of Form2 as dlg1 and then trying to set value inside Form2 (which isn't loaded). This creates a new instance of Form2 and you see the blank values.
Basically what you are trying to do is to return value from custom designed dialog forms - right !
Try this:
Declare a Public Variable in Form1 to hold Form2 value
Public Form2VAL as string
On Form1 Button Click write:
Dim dlg1 as new Form2
dlg1.showdialog
msgbox (Form2Val)
Form2Val = nothing
On Form2 Button Click write:
Form1.Form2Val = "SomeValue"
Me.close
Similarly for Form3, Declare a Public Variable in Form2 to hold Form3 value
Public Form3VAL as string
On Form2 Button Click write
Dim dlg2 as new Form3
dlg2.showdialog
msgbox (Form3Val)
Form3Val = nothing
On Form3 Button Click write:
Form2.Form3Val = "SomeValue"
Me.close
|
|
|
|
|
can anyone help me to create .exe while creating exe its asking demo version sherdian controls i tried many things like threed32.ocx regedit etc but all in vain
error : licensed not found
|
|
|
|
|
zuber ahmed wrote: error : licensed not found
Please don't repost. Mycroft[^] is right.
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
can anyone help me to create .exe while creating exe its asking demo version sherdian controls i tried many things like threed32.ocx regedit etc but all in vain
error : licensed not found
|
|
|
|
|
Looking at these results [^] and your comments you are trying to use a demonstration versions of a retired tool set, possibly in VB6, a dead language. You may have an unresolvable problem doing that.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
It is not clear at all what you are asking.
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
thanks for ur response ... i got the registered controls
|
|
|
|
|
Hello Guys.
I have a VBScript and want to copy a file. I want to make sure it finishes successfully.
If the destination-file is set to "read-only" there occures a Runtime Error '800A0046 - Permition denied'.
What I want: I dont want to get the Script-Host error message but instead my own. Therefore I need the error number ( the error code 800A0046 does not work ) so that I can use
On Error Resume Next
IF (Err.Number > 0) THEN
IF (Err.Number = 32755) THEN
...............
as I did it here to check if the user pressed cancel in a open-dialog box.
Since I'm very new to VBScript programming , I don't have any idea where I can look for a solution to problems like this one. So I hope to find help here. I googled a while and also searched in the MSDN but found nothing.
Thank you very much.
modified 31-Jul-14 4:18am.
|
|
|
|
|
|
Hello thatraja,
thank you for the fast answer. This helps me a lot 
I tried it and it perfectly works. Thank you.
I took this part
Dim FSO
Dim oFS
CONST F_ATTR_RONLY = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFS = FSO.GetFile("d:\test\o2\test.png")
IF oFS.Attributes AND F_ATTR_RONLY
THEN
ELSE
FSO.CopyFile "d:\test\o1\test.png", "d:\test\o2\"
END IF
and it totally works for my purpose.
|
|
|
|
|
i created an application that loops numbers from 2 textboxs ("Starting Sequence" and "Ending Sequence") and displays it into a datagridview, what i am looking for is a code that would pass the selected cell from the datagridview into the microsoft reports, or pass each row into 1 page of report (i.e. sequence 0001 will be in 1 microsoft report page upto the ending sequence to the last report page) can anyone help me?
|
|
|
|
|
Can someone please guide me through this?
In this program you will create a Windows Form application that will calculate and display the money made by a drive-in movie theater each night. The movie theater has two types of nights. A "Regular" night is where each person in a guest car has to buy a ticket, and each ticket costs $10. A "Car" night is a special promotion where there is one price per car of $15, no matter how many guests are in the car.
In addition to the cost of entry (either Regular or Car), the theater sells popcorn and candy but the price of the items depends on the type of night. On a Regular night popcorn costs $1.50 per box and on a special Car night popcorn costs $2.00 per box. On a Regular night candy cost $2.25 per candy box, while on a special Car night candy cost $3.00 per box.
On any night, the maximum number of cars allowed in is 500 and the maximum number of individual tickets is 3,000; the theater can produce 4,500 bags of popcorn each night and has 4,000 candy items.
Once the total sales are calculated, the program will display a summary message with the type of night, the total number of cars, the total ticket sales, the total popcorn sales, the total candy sales, and the total sales amount.
|
|
|
|
|
Public Class frmSalesData
Dim intCars, intTickets, intPopcorn, intCandy As Integer
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
Me.txtNumCars.Clear()
Me.txtNumTickets.Clear()
Me.txtNumPopcorn.Clear()
Me.txtNumCandy.Clear()
Me.lblTotal.Text = Nothing
Me.txtNumCars.Focus()
End Sub
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
Dim strMessage As String
Dim dblNumCars, dblNumTickets, dblNumPopcorn, dblNumCandy As Double
Dim dblTotalSales As Double
If radRegular.Checked = True Then
Me.lblTotal.Text = "Tonight was a REGULAR night."
ElseIf radCar.Checked = True Then
Me.lblTotal.Text = "Tonight was a CAR night."
End If
Double.TryParse(Me.txtNumCars.Text, dblNumCars)
Double.TryParse(Me.txtNumTickets.Text, dblNumTickets)
Double.TryParse(Me.txtNumPopcorn.Text, dblNumPopcorn)
Double.TryParse(Me.txtNumCandy.Text, dblNumCandy)
dblTotalSales = dblNumTickets + dblNumPopcorn + dblNumCandy
strMessage = "The total number of cars present was: " & dblNumCars.ToString() & _
"The total number of tickets sold was: " & dblNumTickets.ToString() & _
"The total popcorn sales were: " & dblNumPopcorn.ToString("N2") & _
"The total candy sales were: " & dblNumCandy.ToString("N2")
Me.lblTotal.Text = strMessage
End Sub
End Class
|
|
|
|
|
Looks reasonable to me, and you didn't receive any harsh comments yet.
If it does what the assignment states (and compiles), then it's a go 
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
Good stuff.
To add elegance use a StringBuilder for your message.
Normally you would get ragged on for posting an assignment (and was roundly ignored), posting the solution got you the upvote 
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
how to filter a particular data from database bu using two arguments????
|
|
|
|
|
Can you explain further? Can you site your code? Or even tell us what are those two arguments you'll use?
We don't have crystal balls, nor we cannot read constellations here.
Don't mind those people who say you're not HOT. At least you know you're COOL.
I'm not afraid of falling, I'm afraid of the sudden stop at the end of the fall! - Richard Andrew x64
|
|
|
|
|
If I had crystal balls, I'd be very careful when I sat down. 
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Don't mind those people who say you're not HOT. At least you know you're COOL.
I'm not afraid of falling, I'm afraid of the sudden stop at the end of the fall! - Richard Andrew x64
|
|
|
|
|
Member 10970081 wrote: how to filter
Look up the <a href="http://www.w3schools.com/sql/sql_where.asp">WHERE</a>[<a href="http://www.w3schools.com/sql/sql_where.asp" target="_blank" title="New Window">^</a>] clause. It's part of the SELECT statement.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Dear All,
I have a problem and for that I am not able to solution initially ..please help me what should I do and how?
Problem :-
I want to Compile an Excel file to exe file. That exe file will work like an actual excel file but it will hide all formulas and if I make change in cell that will effect formula cell and show latest calculation accordingly....
Which Code or language should I use..............?
DEWESH 030286
|
|
|
|
|
You cannot 'compile' an Excel file into anything, it is purely data. You can use protected cells and passwords on the files as necessary.
|
|
|
|
|
We have a EXE application developed in VB6 that uses MSWinsock, now we are migrating it to VB.NET 2010, and we are getting this error. We tried giving strong name to it but failed and also we used TLIMP command that also failed. Can some one guide...what mistake we are doing and also how to resolve this issue
Thanks in Advance...
Vamsi03
|
|
|
|
|
Next time onwards include the error message in question. Check this article
Winsock Revamped[^]
|
|
|
|
|
i want a vb script for subversion pre commit server side hook script which should block the commit if conflict markers are present in the committing file
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
