|
I'm new to VB.NET, currently I'm learning programming here. I have a Window Form(e.g. FrmLogin.vb) and a module which used to run the program (e.g. Module1.vb).
I have declared a few public string variable as follow:
Option Explicit On
Imports System.Data
Imports System.Data.Odbc
Imports System.Configuration
Module Module1
'User detail variable
Public UserID As String
Public UserName As String
Public UserPassword As String
End Module
And I used the FrmLogin to verify the user by connecting to MySQL database. After the user successful login,I will set the UserID,UserName and UserPassword data load from the database which need to be used in my program for the future identification. But when I open another new form I found that these public variable is no value. Can anyone tell me how should I share a public variable inside VB.NET? This data will be used by alot of Form inside this application.
Thank you for reading.
Regards
Drexler
|
|
|
|
|
Sorry, we cannot see your question. Please reformat your post so all the text is visible.
Bob
Ashfield Consultants Ltd
|
|
|
|
|
Sorry Ashfield,
What I need is declaring a variable for global used in my Vb.NET Window Form Application. I am trying to declare the global variable inside a Module1.vb. I have a few forms that using this global varaiable and it doesn't really works. Anyone could tell me how to declare a global variable which can share the variable used in all other different forms or class?
Regards
Drex
|
|
|
|
|
From version 7 (VB.NET 2003) VB is an object oriented language, which means that there are no longer any global variables. All variables are either members of a class or local in a method.
To set up variables that you can use like you did use global variables, you can use static variables. You use the Shared keyword to do this, and those variables are members of a class rather than members of an instance of the class.
Public Class UserDetails
Public Shared UserId As String
Public Shared UserName As String
Public Shared UserPassword As String
End Class
You can access the variables from anywhere by specifying the class name and the variable name:
UserDetails.UserId = "42"
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
Hello Guffa,
Do you mean that I should create all the public share variable into one main module,so all the form can use all the data inside this main module? And how can I insert or retrieve the data of UserID when I need it in other form from this class?
Hope to get some solution about this from you all.
Thank you~!
|
|
|
|
|
Modules is something that for some reason survived from VB6. A module is compiled into a class where all the members are static, so if you declare variables in a module, you should be able to access them from anywhere.
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
Yeah,thanks Guffa. Can you give me some idea how should I declare the variable of my Window Form Application? Let me further explain my situation below:
Option Explicit On
Imports System.Data
Imports System.Data.Odbc
Imports System.Configuration
Module Module1
'User detail variable
Public UserID As String
Public UserName As String
Public UserPassword As String
End Module
This is how I test my retrieve data using Form from the varaiable in Module1.vb:
Messagebox.show(UserID)
Messagebox.show(UserName)
Messagebox.show(UserPassword)
But all the messagebox prompup is Nothing. So,anyone can tell me how should I declare my variable so I can used anywhere in my project? The UserID,Username and Password is used for verification when working with certain function or task.
Thank you for reading.
Regards
Drexler
|
|
|
|
|
It looks like you have declared your variables correctly, the reason the messagebox is showing nothing is becasue you haven't assigned them a value.
Try
UserID = "12345"
Messagebox.Show(UserID)
|
|
|
|
|
Yeah,thanks Liqs. I have solve it by converting the data to string instead of boolean when I assign into the variable. This solve my problem,thank you my friend.
Regards
Drex
|
|
|
|
|
Yeah,thanks Guffa. I have solve it by converting the data to string instead of boolean when I assign into the variable. This solve my problem,thank you my friend.
Regards
Drex
|
|
|
|
|
So the problem was not at all in the code that you posted, but in some other code that you didn't post...
Assigning a boolean value to a string variable is such an obvious error. I wonder why I didn't see that by looking at the code that you posted?
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
i cant debug my usercontrol i have applied in another solution
settings problem maybe? because i was able to debug before.
if grid.reccount = 0 then
before it would go into the function reccount but now
it just doesnt
please help
tnx in advance
|
|
|
|
|
Either Clean the solution and rebuild or check configuration Manager setting in Build Menu.
hope this helps
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
My Company
|
|
|
|
|
done cleaning usercontrol solution and the new application soultion
it still doesnt debug they way it was before.
this works
if myfunction() then
but this doesnt
if usercontrol.reccount = 0 then
already set debug build in configuration manager of new application
but still no success
|
|
|
|
|
sources is 8051 MCU
07 01 11 12 13 17 255 128 45 128 0A 01
07 01 as start flag
0A 01 as end flag
11 12 13 17 255 128 45 128 as data
data range is 0-255
8051 sources incessancy
exp
07 01 11 12 13 17 255 120 45 128 0A 01
07 01 12 188 13 17 201 121 46 129 0A 01
07 01 13 111 13 17 200 122 47 130 0A 01
07 01 14 121 13 17 255 123 48 131 0A 01
07 01 16 132 13 17 255 124 49 132 0A 01
.........................................
TEXT2(127)
how to sort in textbox and real refresh correct textbox array place
exp
text2(0)=11
text2(1)=12
.
.
text2(7)=128
text2(8)=12
.
.
---------------mycode----
but not sort in correct place
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvRing
Case comEvReceive
Dim b() As Byte
b = MSComm1.Input
Do Until b(lo) = 7
Loop
For ko = 0 To 127
lo = lo + 1
lo = lo Mod 128
Text2(ko).Text = Val(b(lo) * 4 * 0.00488) ??????
Next ko
Case comEvSend
End Select
End Sub
|
|
|
|
|
Currently i am using one key and one value in the app.config. How is it possible that i have one key and mutiple value? How i can loop through the app.config?
|
|
|
|
|
How can I set the focus of to the end of the text in my text box. Clicking on a button
I am populating a text box with code
ie ShowThisText = "This is my Text"
I then set the focus to the text box
ie ShowThisText.setfocus
The cursor by default is at the left of the "This is my Text"
I want to be able to add on to the sentence without having to move to the right to start typing
Any Ideas?
|
|
|
|
|
The code
TextBox1.SelectionStart = TextBox1.TextLength
TextBox1.Focus()
will put the cursor at the end of the text in TextBox1.
|
|
|
|
|
how can i send image exists in picturebox and sending it using array function in VB.NET via GPRS connection.(implemented on pocket pc).
plz it is extremely important
reply me as soon as u can.
thanx anyway.
with regards
|
|
|
|
|
You're not going to graduate from the look of things.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Haha harsh.
but funny!
|
|
|
|
|
if picturebox.image.exists then
My.computer.gprs.send(picturebox.image)
end if
|
|
|
|
|
salam ellayan wrote: plz it is extremely important
Then you better get going on your project
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Hi,
Given an Integer which is coded as defined in the following XML, how to compare it with the selected
values on a window form. All Properties can be selected ex. both male and female flag can be on.
Thanks in advance. Hope I have explained the problem correctly.
<employeefeatures>
<feature featuresid="1" bitpos="1" bitcount="1" descr="sex">
<property propertyid="1" val="0" txt="Male" />
<property propertyid="2" val="1" txt="Femele" />
</feature>
<feature featuresid="2" bitpos="2" bitcount="2" descr="agegroup">
<property propertyid="3" val="0" txt="20" />
<property propertyid="4" val="1" txt="30" />
<property propertyid="5" val="2" txt="40" />
</feature>
<feature featuresid="3" bitpos="4" bitcount="1" descr="CompanyCar">
<property propertyid="6" val="0" txt="Yes" />
<property propertyid="7" val="1" txt="No" />
</feature>
<feature featuresid="4" bitpos="5" bitcount="4" descr="status">
<property propertyid="8" val="0" txt="married" />
<property propertyid="9" val="1" txt="unmarried" />
<property propertyid="10" val="2" txt="single" />
<property propertyid="11" val="3" txt="unknown" />
</feature>
</employeefeatures>
|
|
|
|
|
First you need a proper specification of what the xml means exactly. The bitpos value seems to be one based, for example, which is rather non-standard...
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|