chuchaykaw

i hope it could be help you in this matter. Private Sub TextBox1_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Validated Dim number As Double = 0 If Double.TryParse(Me.TextBox1.Text, number) Then 'your code Else MessageBox.Show("Insert a number") Me.TextBox1.Clear() End If End Sub

Sub Main() ' Use current time. ' ... Use a format. ' ... Write to console. Dim time As DateTime = DateTime.Now Dim format As String = "MMM ddd d HH:mm yyyy" Console.WriteLine(time.ToString(format)) End Sub May Tue 18 16:46 2010

hi i hope it could be help you 1.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 2 Form2.Show() 3 Form2.WindowState = FormWindowState.Normal 4 Form2.BringToFront() 5 End Sub by: Rossana kaw

Public Class GridSample Private Sub GridSample_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dt As New DataTable dt.Columns.Add("Column1") dt.Columns.Add("Column2") dt.Columns.Add("Column3") Dim dr = dt.NewRow dr("Column1") = "1" dr("Column2") = "AA" dr("Column3") = "AAA" dt.Rows.Add(dr) dr = dt.NewRow dr("Column1") = "2" dr("Column2") = "BB" dr("Column3") = "EDIT" dt.Rows.Add(dr) …

'Create the new row Dim newRow as DataRow = myTable.NewRow 'Add some data to it newRow("columnName1") = data1 newRow("columnName2") = data2 'Add it to the table myTable.Rows.Add(newRow) 'Bind the table treeList.DataSource = dt treeList.DataBind

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListBox1.Text = My.Settings.history Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick My.Settings.history = ListBox1.Text My.Settings.Save() End Sub

Public Class class1 Shared x As Integer Shared Sub New() x=0 End Sub End Class

Try 02 q1 = "select * from stock_left WHERE item_name like '" & TextBox1.Text & "%'" 03 cn = New SqlConnection(My.Settings.PharmacyConnectionString) 04 cn.Open() 05 ds1 = New DataSet 06 ad = New SqlDataAdapter(q1, cn) 07 ad.Fill(ds1, "DGV") 08 DataGridView1.DataSource = ds1.Tables(0) 09 cn.Close() 10 Catch ex As Exception 11 MsgBox(ex.Message) …