KERJA IT - COMPUTER

Markas Rabbani Surabaya Jl.Pucang Anom Timur No. 14 Surabaya Telp. 08123015071 Email : Markas_rabbani_sby@yahoo.co.id

  • RSS
  • Google +
  • Facebook

Popular Posts

IDHOSTINGER memang OK
Radio - TV OnLine
Asyiiikk Bro

Translate Google

Popular Posts

Markas Rabbani Surabaya

HOSTINGER

Web Hosting

KOMINITAS VFP

IP ADDRESS INFO

IP

Total Tayangan Halaman

HOSTINGER

Web Hosting

Prof DR KH Said Aqil Sirodj - Ketua PB NU

Gus Mus - Prof DR KH Said Aqil Sirodj - Alm Gus Dur

HOSTINGER Web Gratis Tanpa Iklan

Gak Percaya Buktikan

Griya Asy-Syifa

Jl Suromulang Timur II/18 Perum Citra Surodinawan Estate Kota Mojokerto Contac : 081231821800, 08814353000, 085746201881 Pin BB : 24D0B84C e-mail : ariesmojokerto@gmail.com

HOSTINGER Gratis tanpa Iklan

Web Hosting GRATIS dI Indonesia Tanpa Iklan

WaliSongo

Babat alas Tanah Jawa - Pengikut Nabi Muhammad saw - NU

Senin, 21 Juli 2014

LEBAR COLOUMN DATAGRIDVIEW - PERCANTIK DAN FUNCTION KEYS


DatagridView adalah komponen Toolbar pada Visual Basic .2010 yang biasa digunakan untuk menampilkan Query pada Tabel didalam database. 


Jika anda lihat gambar diatas, pada datagrid view kami menampilkan Sales Order Confirmation, namun secara Dedfault lebar dari Kolom DatagridView semuanya sama rata. Nah pada Tutorial kali ini akan dibahas cara mengatur lebar DatagridView agar enak dipandang :)


  
Setelah di rubah dengan perhatikan koding di bawah ini :

 Private Sub Tampilsdeler()
        Try
            tutupDB()
            db.Open()
            Dim da As New MySqlDataAdapter("SELECT noitem,pol,kdrang,namrang,jumlah,hsat,stot,pdiskont,diskont,uang,inv,idisk,bersih,kwarna,warna FROM sdeler WHERE noinv ='" & txtnofaktur.Text & "' Order by noinv,noitem", db)
        Dim dt As New DataTable
        da.Fill(dt)
        dgvoc.DataSource = dt
            dgvoc.Refresh()

            ' Melebarkan Coloumn datagridview

            dgvoc.Columns(0).Width = 70
            dgvoc.Columns(1).Width = 60
            dgvoc.Columns(2).Width = 80
            dgvoc.Columns(3).Width = 150
            dgvoc.Columns(4).Width = 80
            dgvoc.Columns(5).Width = 80
            dgvoc.Columns(6).Width = 80
            dgvoc.Columns(7).Width = 60
            dgvoc.Columns(8).Width = 80
            dgvoc.Columns(9).Width = 90


            'Percantik Coloumn
            dgvoc.GridColor = Color.Blue
            dgvoc.DefaultCellStyle.ForeColor = Color.Black
            dgvoc.RowsDefaultCellStyle.BackColor = Color.Red
            dgvoc.AlternatingRowsDefaultCellStyle.BackColor = Color.Yellow
            dgvoc.GridColor = Color.Silver


            db.Close()
        Catch ex As MySqlException
            MsgBox(ex.Message)
            MsgBox("Koneksi tidak berhasil dilakukan")
            Exit Sub
        End Try
    End Sub



Hasilnya :  




Selamat Otak Atik 



FUNCTION KEYS DI VB-2010



Letakan property ini di event form_load

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
End Sub

kemudian simpan semua sintak new, save, cancel, close anda di event form_keydown
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.F2 'new
                '...sintak anda
            Case Keys.F5 'save
                '...sintak anda
            Case Keys.F6 'cancel
                '...sintak anda
            Case Keys.F7 'close
                '...sintak anda
        End Select
End Sub
 
atau anda bisa menulisnya seperti ini :

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyValue
            Case 113 'new
                '...sintak anda
            Case 116 'save
                '...sintak anda
            Case 117 'cancel
                '...sintak anda
            Case 118 'close
                '...sintak anda
        End Select
End Sub

Berikut ini daftar keyvalue dari F1 sampai F12 :
112 = F1
113 = F2
114 = F3
115 = F4
116 = F5
117 = F6
118 = F7
119 = F8
120 = F9
121 = F10
122 = F11
123 = F12

Jika anda ingin menggabungkan KEY seperti CTRL+S atau ALT+A atau ALT+SHIFT+D atau terserah anda, maka cukup tulis codenya seperti ini (contoh CTRL+SHIFT+ALT+Z) :

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    If e.Alt And e.Shift And e.Control And e.KeyCode = Keys.Z Then
        MessageBox.Show("OK !!!")
    End If
End Sub
 


Tidak ada komentar:

Posting Komentar