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,

Share this

Related Posts

Previous
Next Post »

Loading...