|
Hi
Please tell me in some lines of code.How can I perform differnt actions for controls that I have created at runtime.e.g. display the name of control.
Code snippet is
Dim x, y As Integer
For i As Integer = 1 To 10
y += 25
btn = New Button
btn.Location = New Point(x, y + 25)
btn.Size = New Size(70, 25)
btn.Name = "Button" & i.ToString
btn.Text = "Button" & i.ToString
Controls.Add(btn)
AddHandler btn.Click, AddressOf btn_Click
Next i
Private Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'Display the control name that was clicked
End Sub
reman
|
|
|
|
|
sender is a Button
Luc Pattyn [Forum Guidelines] [My Articles]
this weeks tips:
- make Visual display line numbers: Tools/Options/TextEditor/...
- show exceptions with ToString() to see all information
- before you ask a question here, search CodeProject, then Google
|
|
|
|
|
Cast sender to a Button.
Dim btn As Button = DirectCast(sender, Button)
|
|
|
|
|
i have a database of lists of subjects...then in my module, i want to display all the subjects that i recorded in the listbox...
how can i do it? i already connect my dataset in the connection wizard but i can't display it in the listbox.
|
|
|
|
|
at the first time you should set your listbox datasourse it will be your table in your dataset
and then set displayMember it will be the column name of the table it will be shown to user
and then set valueMember it will be the column name that is not been shown to user .
|
|
|
|
|
Dear everyone.
hope you all will be fine and good in health.
i have a problem that i want to fetch a listbox with names. please help me that what code i have to write.
PICTURE IS HERE;
i have a table STUDENT with attributes (ID, Name, Age)
i have inserted 100 students record into STUDENT tabl
i have a listbox control named lstStdents on my form
now i want that when my form is opened, it should auotmatically fill the listbox with NAME of students
i want to know that how to fill that box using datareader?
thanks
|
|
|
|
|
http://msdn2.microsoft.com/en-us/library/haa3afyz(VS.71).aspx
Try like that.
OleDbConnection nwindConn = new OleDbConnection("Provider=MSDataShape;Data Provider=SQLOLEDB;" +<br />
"Data Source=localhost;Integrated Security=SSPI;Initial Catalog=northwind");<br />
<br />
OleDbCommand custCMD = new OleDbCommand("SELECT Name from STUDENT", nwindConn);<br />
nwindConn.Open();<br />
<br />
OleDbDataReader custReader = custCMD.ExecuteReader();<br />
<br />
<br />
while (custReader.Read())<br />
{<br />
<br />
Listbox1.AddItem(custReader.GetString(1) = CompanyName);<br />
<br />
<br />
}<br />
<br />
custReader.Close();<br />
nwindConn.Close();
do searching a lit bit. man.... there are a lot of examples about how to populate the data into listbox in web or our forum....
Thanks and Regards,
Michael Sync ( Blog: http://michaelsync.net)
If you want to thank me for my help, please vote my message by clicking one of numbers beside "Rate this message". Why vote? Plz Read it here. Thank you. 
|
|
|
|
|
Dear Micheal
thanks for nice information
i have writen my code following your pattern but it not works
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=e:\college.mdb")
Dim query As New OleDb.OleDbCommand("Select * from student")
con.Open()
Dim dr As OleDb.OleDbDataReader = query.ExecuteReader()
While (dr.Read())
ListBox1.Items.Add(dr.GetString(1) = Name)
End While
dr.Close()
con.Close()
please help me more to clear my concept
thanks
|
|
|
|
|
Egoest wrote: Dim query As New OleDb.OleDbCommand("Select * from student")
Select Name from student
Egoest wrote: ListBox1.Items.Add(dr.GetString(1) = Name)
ListBox1.Items.Add(dr.GetString(1))
Thanks and Regards,
Michael Sync ( Blog: http://michaelsync.net)
If you want to thank me for my help, please vote my message by clicking one of numbers beside "Rate this message". Why vote? Plz Read it here. Thank you.
|
|
|
|
|
Hi
In my application i am downloading mail pop3 server and using indy socket.
I am having problem if the mail have an attachment.If the mail having and
attachment then while downloading, mail attachment is encode to some
format.I want to again decode attachment to its original format.How can i
do this.Please tell me how to do this.
Thanks.
-- modified at 10:40 Thursday 23rd August, 2007
Rahul
|
|
|
|
|
hello there
i have a file that contain data suchas
ashish sharan dadhich
rupesh kumar swami
asdf zxcv qwer
now i m trying to store every line and every character in the file (text file) in a 2d string array.
and store the data in a excel file like
----------------------------
ashish | sharan | dadhich |
----------------------------
rupesh | kumar | swami |
----------------------------
asdf | zxcv | qwer |
----------------------------
i use the statement
Dim str1 As String() = rtb1.Text.Split(" ")
to store string separated by space, but i don't know how to find the new line char in the line. the previous statement stores the string
str1(0) = ashish
str1(1) = sharan
str1(2) = dadhichrupesh
does some one has as idea to get rid out of that then please tell me .
thnx
hope all of u to understand my problem.
help everyone
|
|
|
|
|
Hi,
I haven't tried this and I am not sure it will work but you could try to split the data in two steps:
<br />
'1. first split the data into lines by line breaks.<br />
Dim lines() As String = rtb1.Text.Split(Chr(13))<br />
Dim words() As String<br />
Dim line As String<br />
<br />
'2. split each line into words and do whatever you want with them.<br />
For Each line In Lines<br />
words = line.split(" ")<br />
'transfer words.GetValue(0) somewhere<br />
'etc<br />
'etc<br />
Next<br />
Hope this works,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Hello friends,
i have one query
prepare a vb application with one button install mysql when the user clicks on the install button mys sql setup should run.
How to work on this please can u help me, if u have any sample code please give and help me
Thanks
Praveen Kumar.R
|
|
|
|
|
if you are using vb.net then with your setup project, u can add a custom action install so you need to put the mySql setup in your setup project and do a custom install to make it install..
i have a similar thing done when i had to install codecs automatically for a media player software and it works...
i think an example is when you are installing JDK widout JRE,
0pe it helps you
phatkin
|
|
|
|
|
Hi,
I am trying to Export the ADO Recordset data in Ms Excel.Please help me as soon as possible.
wlink
|
|
|
|
|
|
Thanks Friend,
My problem is solved by your help.It's really pleasure moment for me.Thanks Alot.
Pawan Nepal
from: Nepal(Country)
|
|
|
|
|
TO read a excel file is quite simple using vb. But there is a problem. My excel file is online updatable file.
the excel file become read only when i read the file using vb. So the excel can't update..this is the problem
so plz any body can assist me
thank u
|
|
|
|
|
jamesrajesh wrote: the excel file become read only when i read the file using vb
Is it being opened more than once at a time?
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
hi
i just want a generic program for reading headers of file (of any type).
Is there any way to do that??
thanx in advance
|
|
|
|
|
|
hi
i just wanna know how to add password checking code to a binary file so that whenever it is executed it should ask the password first????????
I want to achieve that in VB 6.0 and .net
Thanx in advance
|
|
|
|
|
If you're talking about password protecting your own app, then thats easy. Put up a form with a textbox to get the password. Check it against your stored password. If it doesn't match, you can either ask again or quit.
If you're asking how to password protect ANY binary file, forget it. It can't be done in VB6 and isn't practical to do anyway.
|
|
|
|
|
Dear forks,
In my program, an error raise time to time as below,
An unhandled exception of type 'System.ExecutionEngineException' occurred in growthModel.exe
Error raising poit is here, Is this code incorrect? can anybody help me?
always error raising at cmd1.ExecuteNonQuery().
Public Sub delete2()
Dim cmd1 As New System.Data.OleDb.OleDbCommand
Try
cmd1.Connection = cnn1
cmd1.CommandText = "Delete * FROM NutrientComp"
cmd1.ExecuteNonQuery()
Catch ex As ExecutionEngineException
MsgBox(ex)
Finally
End Try
cmd1.Dispose()
Dimuthu
Dimuthu
|
|
|
|
|
dimuthuvbnet wrote: Public Sub delete2()
Dim cmd1 As New System.Data.OleDb.OleDbCommand
Try
cmd1.Connection = cnn1
cmd1.CommandText = "Delete * FROM NutrientComp"
cmd1.ExecuteNonQuery()
Catch ex As ExecutionEngineException
MsgBox(ex)
Finally
End Try
Try like that ~
<br />
Public Sub Delete2()<br />
<br />
Dim cmd1 As New System.Data.OleDb.OleDbCommand<br />
Try<br />
cmd1.Connection = cnn1<br />
cmd1.CommandText = "Delete * FROM NutrientComp"<br />
cmd1.ExecuteNonQuery()<br />
<br />
Catch ex As Exception<br />
MsgBox(ex)<br />
Finally<br />
End Try<br />
Thanks and Regards,
Michael Sync ( Blog: http://michaelsync.net)
If you want to thank me for my help, please vote my message by clicking one of numbers beside "Rate this message". Why vote? Plz Read it here. Thank you.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
