Kamis, 19 Juli 2012

Memasukkan Textbox kedalam Msgbox di VB.Net

Share pengalaman neh gan,
cara memasukkan textbox ke massagebox di visual studio 2005 atau VB.net
berikut syntaxnya - eventnya context menu edit - click



Private Sub EditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem.Click

Dim rows As Integer
Dim id, s1 As String

rows = DataGridView3.CurrentRow.Index()
id = DataGridView3.Rows(rows).Cells(1).Value
s1 = Microsoft.VisualBasic.Interaction.InputBox("Silakan Masukkan Jumlah cuti yang dipakai", "Edit Sisa Cuti", "", MousePosition.X, MousePosition.Y)

If Not s1 = "" And IsNumeric(s1) Then
SQLstr = "UPDATE cuti_tb SET Cuti_dipakai=" & s1 & " WHERE (ID_Cuti=" & id & ")"
InsertData(SQLstr)
   If statusinsert = True Then
     MsgBox("data cuti berhasil di update")
   Else
     MsgBox("data cuti gagal di update")
   End If
BtView_Click(sender, New System.EventArgs())
End If

End Sub


Setelah itu ketika context menu di click maka akan tampil massagebox dengan textbox,
value yang di input oleh user masuk di variable S1, kemudian semua terserah agan,