Untuk mengambil nilai atau teks pada cell dari sebuah DataGrid View gunakan perintah berikut:
Dim vFileNm As String = myGridView.Item(myGridView.Column.Index, myGridView.CurrentRow.Index).Value
Monday, June 20, 2011
Mengambil Nilai Cell Pada Datagrid VB .NET
Script VB .NET untuk Meng-Copy Berkas (File)
Untuk dapat menjalankan script VB.NET yang akan digunakan untuk menyalin/meng-copy berkas membutuhkan File object System.IO.File yang harus disertakan dengan perintah:
Imports.System.IO.File
Contoh script yang digunakan untuk menyalin berkas:
Dim FSumber As String
Dim FTarget As String
FSumber = "C:\Data\Form01.Doc"
FTarget = " C:\Data\Form01Rev.Doc "
If Exists(FSumber ) = True Then
Copy(FSumber , FTarget)
MsgBox("Berkas Berhasil DiSalin")
End If
Untuk mengantisipasi kesalahan karena tidak ada nama berkas yang akan disalin, digunakan perintah:
If Exists(FileToCopy) = True Then
Jika berkas yang dimaksud ada, maka akan dilanjutkan dengan perintah:
Copy(FileToCopy, NewCopy)
Friday, June 17, 2011
Mengisi Item ComboBox di Gridview
Untuk mengisi item pada ComboBox yang merupakan bagian dari GridView dapat dilakukan dengan memberikan perintah seperti ini :
Private Sub frmIsolationAct_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cboCol1 As DataGridViewComboBoxColumn
cboCol1 = DataGridView1.Columns.Item(0)
cboCol1.Items.Add("Item1")
cboCol1.Items.Add("Item2")
End Sub