If both the control are same which u want to fire then you can do something like this.
Private Sub Label1_Click(ByVal sender As Object, ByVal e As System.EventArgs)Handles Label1.Click, Label2.Click, Label3.Click
' Your code what u want to do
End Sub
Dim txt As New TextBox
txt.Name = "txttest"
Dim loc As System.Drawing.Point
loc.X = 300
loc.Y = 168
txt.Location = loc
txt.Text = "Testing textbox"
txt.ReadOnly = False
Me.Controls.Add(txt)
Get the location of your label control and set that location to textbox and after adding the textbox hide your lable control
Private Function ValidateEmail(ByVal EmailAddress As String) As Boolean
Try
If EmailAddress.Trim.Length = 0 Then
MsgBox("Please enter the email Address")
Return False
End If
Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
Dim emailAddressMatch As Match = Regex.Match(EmailAddress, pattern)
If emailAddressMatch.Success Then
Return True
Else
MsgBox("Please enter the valid email address")
Return False
End If
Catch ex As Exception
End Try
End Function
Pass each email adress from array to this function and it will return true or false
After creating the webservice have you tried to browse ur web service within the IIS?. If yes Whats the URL ur getting? have you added the Same URL while adding the referce in ur project?
Private Shared _Instance As Form1 = Nothing
Public Shared Function Instance() As Boolean
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New Form1
Return False
End If
_Instance.BringToFront()
Return True
End Function
' Form Level varibales
Dim dsNew As New DataSet
Dim Index As Integer = 1
'' Form load event
Dim strCon As String = "Ur Data base connections"
Dim conn As New SqlConnection(strCon)
conn.Open()
Dim comm As New SqlCommand("Select * from test", conn)
Dim da As New SqlDataAdapter(comm)
Dim ds As New DataSet
da.Fill(ds)
If ds.Tables.Count > 0 Then
lstBox.Items.Add(ds.Tables(0).Rows(0).Item(0))
End If
'' Button Next click Event
Try
Dim strCon As String = "ur data base connections"
Dim conn As New SqlConnection(strCon)
conn.Open()
Dim comm As New SqlCommand("Select * from test", conn)
Dim da As New SqlDataAdapter(comm)
Dim ds As New DataSet
da.Fill(ds)
dsNew = ds
Dim irowcount As Integer
lstBox.Items.Clear()
irowcount = ds.Tables(0).Rows.Count
If Index >= irowcount Then
MsgBox("Questionary over Thanks for Attending...")
Exit Sub
End If
If ds.Tables.Count > 0 And ds.Tables(0).Rows.Count > 0 Then
irowcount = ds.Tables(0).Rows.Count
lstBox.Items.Add(ds.Tables(0).Rows(Index).Item(0))
Index = Index + 1
End If
Catch ex As Exception
End Try
End Sub
Build your webservice and copy the output files on the server and cofigure IIS by creating virtual folder then you can access from wherever you want to.
Hi Vineeth, In Vb i dont think so u can EDIT the application like this. You need to make the changes whatever you want and build the application and need to give the exe... just cant edit the published version becoz once you pulbish the version your application will be in GAC and ur application will be looking for reference and other info from the old Menifest file.
Hi, you can for Checkedlistbox control first load all the students from DB for that subject and then Get the student who are present, based on that mark the check boxes
Select * from Customer where customerreferene number='Pass the reference number'. Fill the data set with the records, loop through all the records and assign the values to the respective textboxes.
' Form level variable
Dim index As Integer = 1
Dim dt As New DataTable
Dim dc As New DataColumn("Numbers")
Dim NoOfRows As Integer = 0
' Put it in form load event
dc.DataType = System.Type.GetType("System.String")
dt.Columns.Add(dc)
DataGridView1.DataSource = dt
'' in Button add Click
Try
Dim dr As DataRow
dr = dt.NewRow
dr.Item(0) = index
dt.Rows.Add(dr)
DataGridView1.DataSource = dt
index = index + 1
NoOfRows = NoOfRows + 1
Catch ex As Exception
MsgBox(ex.ToString)
End Try
'' In buton remove click
Try
index = 1
DataGridView1.DataSource = Nothing
dt.Clear()
For i As Integer = 0 To NoOfRows - 2
Dim dr As DataRow
dr = dt.NewRow
dr.Item(0) = index
dt.Rows.Add(dr)
index = index + 1
Next
DataGridView1.DataSource = dt
Catch ex As Exception
MsgBox(ex.ToString)
End Try
try this out in seperate test project and u can try in ur main project later..
prepare sql statement at front end only based on the condition. and pass to DB and return the dataset and load...
example:
Private sub SerachDetails(Byval firstname as string,lastname as string,dob as date)
Try
--here you check for all the parameters which are not nothing and based on that write where condition..
catch
End Try
End sub
