Pages

Cara Install VB 6 Di Windows 7 Supaya Tidak Error

Cara Install VB 6 Di Windows 7 Supaya Tidak Error. Pernahkah anda mengalami kegagalan dalam melakukan instalasi visual basic 6.?? Ini adalah pengalaman saya waktu install vb 6 di windows 7. Begini ceritanya Saya melakukan installasi vb 6 di windows 7 berhasil, tapi setelah saya buka vb 6 nya ternyata ada sebagian komponen ocx atau dll tidak dapat di buka alias tidak bisa di register dengan sempurna. Setelah cari-cari di google akhirnya ketemu cara mengatasi hal tersebut. Yaitu sebelum melakukan install vb 6 di windows 7 matikan UAC nya.

Bagaimanakah cara mematikan UAC nya???
Silahkan lakukan langkah-langkah berikut ini supaya semua komponennya dapat teregister dengan sempurna. Berikut langkah-langkah mematikan UAC :


  • Silahkan buka control panel


  • Silahkan buka user accounts


  • Klik Change User Account Control settings seperti gambar berikut ini


  • Tampilkan Gambar




    1. Setelah di klik akan muncul jendela baru seperti gambar berikut ini, perhatikan tombol slidenya


    2. Tampilkan Gambar




    3. Geser slidenya sampai mentok ke bawah seperti nampak pada gambar berikut ini


    4. Tampilkan Gambar





    5. Kemudian restartlah komputer atau laptopnya untuk memberikan efek perubahan di User Accounts Control Setting



    6. Klik kanan pada SETUP.EXE dan pilih  Run As Administrator, maka akan muncul tulisan "On this and other Program Compatibility Assistant warnings", Klik saja "Run Program."
          - Klik Next.
          - Klik "I accept agreement" kemudian Next.
          - Masukan nama dan nama organisa/perusahaan anda(di isi sembarang) kemudia klik Next



    7.  Pilih Custom Setup terus klik Next.



    8. Klik Continue kemudian Ok. Tunggu kurang lebih 2 menit sampai ada pilihan sbb:
      •    Microsoft Visual Basic 6.0
      •    ActiveX
      •    Data Access
      •    Graphics
      Yang lainnya jangan dipilih dan klik saja Continue untuk melanjutkan langkah berikutnya.



    9.  Bila tidak memiliki CD MSDN jangan dicentang k install MSDN nya kemudian klik next dan akan muncul semacam pemberitahuan kekurangannya bila tidak menginstall MSDN, abaikan saja dengan klik Accept.



    10. Klik skip saja pada instalasi Installshield karena ini hanya pelengkap yang sudah sangat usang dan tidak diperlukan lagi.



    11. Klik next lagi untuk melewatkan instalasi Backoffice, VSS dan SNA Server karena tidak begitu penting dan sudah usang pula.



    12. Pada dialog selanjutnya lepaskan centangan "Register Now" dan klik Finish.



    13. Selesai. Silahkan jalankan VB6 anda pada Start>All Program>Microsoft Visual Studio 6


      Setelah itu anda instal Update Service Pack 6 (SP6) dan Update Cumulative SP6 untuk lebih menyempurnakan lagi VB6 anda. Jika ada masih penasaran , anda boleh jalankan setting compability seperti diatas untuk yang kedua kalinya. Selanjutnya HAPPY CODING !!!!

      Catatan:
      - Pada Windows 7 ada hal-hal yang sangat mengganggu kala menjalankan VB 6 ini diantaranya kita susah sekali menarik ulur ukuran form yang kita buat pada penampilan design form. Untuk mengatasi hali ini setelah proses instalasi anda berhasil rubahlah kompatibilitasnya pada IDE executable dengan cara:

      - Gunakan Windows Explorer cari dimana anda menginstall VB6. Biasanya terletak pada C:\Program Files\Microsoft Visual Studio\VB98\
        
      - Klik pakai mouse kanan pada VB6.exe dan pilih property-nya lalu klik pada Compatibility lalu centang semua ini:


        • Run this program in compatibility mode for Windows XP (Service Pack 3)
        • Disable Desktop Composition
        • Disable display scaling on high DPI settings

       Jika belum memiliki master vb6 silahkan download disini



      Tags:
       instalasi vb6 di win7, cara instal vb6 di win seven, vb6 tidak support windows7, vb6 error di windows 7, agar vb6 berjalan baik di windows7,Cara Install VB 6 Di Windows 7 Supaya Tidak Error

      Mengurutkan Data Pada MsFlexgrid

      Mengurutkan Data Pada MsFlexgrid. Pada kesempatan kali ini saya akan berbagi trik cara mengurutkan data yang ada dalam msflexgrid dengan cara double klik maupun klik header kolom msflexgrid yang ingin kita urutkan berdasarkan kolom tersebut. Pada postingan sebelumnya pernah membahas tentang msflexgrid warna selang seling.

      Jadi dengan sedikit trik ini kita dapat mengurutkan data hanya dengan double klik maupun klik header kolom msflexgrid maka datanya akan urut berdasarkan header kolom yang kita pilih. Anda tertarik? Pengen tahu cara Mengurutkan Data Pada MsFlexgrid? Ikutilah langkahnya.

      Tulislah kode berikut ini. jika ingin pengurutan datanya memakai double klik tulislah kode berikut pada event double dan jika menginginkan pada event klik silahkan tulislah kode ini pada event klik.

      Pada contoh ini saya tulis pada event double klik


      Private Sub MSFlexGrid1_DblClick()
         With MSFlexGrid1
              If .MouseRow = 0 Then
                 .Col = .MouseCol
                 .ColSel = .MouseCol
                  If sortedBy = flexSortGenericDescending Then
                     .Sort = flexSortGenericDescending
                     sortedBy = flexSortGenericDescending
                  Else
                      .Sort = flexSortGenericAscending
                      sortedBy = flexSortGenericAscending
                  End If
              End If
         End With
      End Sub
       
       
      jika sudah jangan lupa di simpan untuk mencobanya silahkan di jalankan. Moga berhasil 
      jika kurang jelas silahkan membrikan komentar...
       
       
       
      
      
      
      
      Tags:
      Mengurutkan Data Pada MsFlexgrid,Mengurutkan data,trik msflexgrid,pengurutan data,source code pengurutan data

      Membuat Nomor Otomatis Dengan Format Tanggal

      Membuat Nomor Otomatis Dengan Format Tanggal. Pada postinga kali ini saya akan berbagi sebuah postingan tentang cara membuat nomor ototmatis dengan format tanggal, pada postingan sebelumnya pernah membahas cara membuat nomor ototmatis.
      Maksud dari nomor otomatis dengan format tanggal adalah enam digit pertama terdiri dari 2 digit tahun 2 digit bulan 2 digit tanggal dan 3 digit terakhir merupakan no urut. Formatnya adalah yymmddxxx.
      Setiap tanggal system komputer kita ganti maka tiga digit terakhir akan dimulai dari 001 walaupun tadinya tiga digit terakhir tersebut sudah mencapai 891. Enam digit dari depan mengikuti tanggal system komputer yang kita pakai.

      Nomor otomatis seperti ini bisa kita gunakan untuk nomor transaksi pada program yang kita buat. Pada contoh kali ini saya akan membuat nim mahasiswa dengan format tanggal ini hanya contoh. silahkan diaplikasikan cara ini sesuai keinginan anda.

      Bagaimanakah cara Membuat Nomor Otomatis Dengan Format Tanggal..? Langkah-langkahnya sebagai berikut ini:

      Buatlah database dengan menggunakan ms access dengan nama DB_MHS dan buatlah tabel denngan nama Tbl_mhs seperti berikut ini

      Tampilkan Gambar



      Kemudian siapkan sebuah form tambahkan empat textbox, tiga commandbutton dan MsFlexgrid yang tampak seperti gambar berikut ini

      Tampilkan Gambar



      Jika sudah tambahkan sebuah modul lalu ketikan kode berikut ini. modul ini berfungsi untuk koneksi ke database

      Public Conn As New ADODB.Connection
      Public RsMhs As ADODB.Recordset
      
      Public Sub Buka()
          Set Conn = New ADODB.Connection
          Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_MHS.mdb"
          Conn.CursorLocation = adUseClient
      End Sub
      

      Kemudian buatlah prosedur nomor otomatis, ketiklah kode berikut ini pada form yang telah kita buat tadi

      Private Sub AutoNumber()
          Call Buka
          Set RsMhs = New ADODB.Recordset
          RsMhs.Open "SELECT * FROM Tbl_mhs WHERE nim in(select max(nim) from Tbl_mhs)order by nim desc", Conn
          RsMhs.Requery
          Dim Urut As String * 9
          Dim Hitung As Long
          With RsMhs
              If .EOF Then
                  Urut = Format(Date, "yymmdd") + "001"
              Else
                  If Left(!nim, 6) <> Format(Date, "yymmdd") Then
                      Urut = Format(Date, "yymmdd") + "001"
                  Else
                      Hitung = (!nim) + 1
                      Urut = Format(Date, "yymmdd") + Right("000" & Hitung, 3)
                  End If
              End If
              TxtNim.Text = Urut
          End With
      End Sub
      

      Jika sudah buatlah prosedur dengan nama AktifGrid yang berguna untuk mengatur msflexgrid kodenya seperti berikut ini

      Private Sub AktifGrid()
          With MSFlexGrid1
              .Cols = 5
              .RowHeightMin = 300
      
              .Col = 0
              .Row = 0
              .Text = "NO"
              .CellFontBold = True
              .ColWidth(0) = 400
              .AllowUserResizing = flexResizeColumns
              .CellAlignment = flexAlignCenterCenter
      
              .Col = 1
              .Row = 0
              .Text = "NIM"
              .CellFontBold = True
              .ColWidth(1) = 1200
              .AllowUserResizing = flexResizeColumns
              .CellAlignment = flexAlignCenterCenter
      
              .Col = 2
              .Row = 0
              .Text = "NAMA MAHASISWA"
              .CellFontBold = True
              .ColWidth(2) = 2500
              .AllowUserResizing = flexResizeColumns
              .CellAlignment = flexAlignCenterCenter
      
              .Col = 3
              .Row = 0
              .Text = "ALAMAT"
              .CellFontBold = True
              .ColWidth(3) = 2500
              .AllowUserResizing = flexResizeColumns
              .CellAlignment = flexAlignCenterCenter
      
              .Col = 4
              .Row = 0
              .Text = "JURUSAN"
              .CellFontBold = True
              .ColWidth(4) = 1500
              .AllowUserResizing = flexResizeColumns
              .CellAlignment = flexAlignCenterCenter
          End With
      End Sub
      

      Kemudian Buatlah prosedure dengan nama TampilGrid untuk menampilkan data ke msflexgrid

      Sub TampilGrid()
          Dim Baris As String
          MSFlexGrid1.Clear
          Call AktifGrid
      
          MSFlexGrid1.Rows = 2
          Baris = 0
          Call Buka
          Set RsMhs = New ADODB.Recordset
          RsMhs.Open "SELECT * FROM Tbl_mhs ORDER BY nim ASC", Conn, adOpenDynamic, adLockOptimistic
      
          If RsMhs.BOF Then
              Exit Sub
          Else
              With RsMhs
                  .MoveFirst
                  Do While Not .EOF
                      Baris = Baris + 1
                      MSFlexGrid1.Rows = Baris + 1
                      MSFlexGrid1.TextMatrix(Baris, 0) = Baris
                      MSFlexGrid1.TextMatrix(Baris, 1) = !nim
                      MSFlexGrid1.TextMatrix(Baris, 2) = !nama
                      MSFlexGrid1.TextMatrix(Baris, 3) = !alamat
                      MSFlexGrid1.TextMatrix(Baris, 4) = !jurusan
                      .MoveNext
                  Loop
              End With
          End If
      End Sub
      

      Pada bagian form load tuliskan kode berikut ini

      Private Sub Form_Load()
          Call Buka
          Call TampilGrid
          
          TxtNim = ""
          TxtNama = ""
          TxtAlamat = ""
          TxtJurusan = ""
      
          TxtNim.Enabled = False
          TxtNama.Enabled = False
          TxtAlamat.Enabled = False
          TxtJurusan.Enabled = False
      
          CmdSave.Enabled = False
      End Sub
      

      Jika sudah silahkan double klik tombol new kemudian ketikan kode berikut ini

      Private Sub CmdNew_Click()
      '' //Memanggil prosedure penomoran otomatis
          Call AutoNumber
          '-----------
          TxtNama.Enabled = True
          TxtAlamat.Enabled = True
          TxtJurusan.Enabled = True
      
          CmdNew.Enabled = False
          CmdSave.Enabled = True
      
          TxtNama.SetFocus
      End Sub
      

      Kemudian tulislah kode untuk simpan data dengan cara double klik tombol save kemudian ketikan kode berikut ini

      Private Sub CmdSave_Click()
          If TxtNama = "" Or TxtAlamat = "" Or TxtJurusan = "" Then
              MsgBox "Ada Data Yang Belum Diisi...!," & vbCrLf & "" _
                   & "Mohon Data Dilengkapi Dulu", vbCritical, "Peringatan"
              Exit Sub
          Else
              Dim SqlAdd As String
              SqlAdd = "INSERT INTO Tbl_mhs(nim,nama,alamat,jurusan)values" _
                     & "('" & TxtNim & "','" & TxtNama & "','" & TxtAlamat & "','" & TxtJurusan & "')"
              Conn.Execute (SqlAdd)
          End If
          Call TampilGrid
      
          TxtNim = ""
          TxtNama = ""
          TxtAlamat = ""
          TxtJurusan = ""
      
          TxtNama.Enabled = False
          TxtAlamat.Enabled = False
          TxtJurusan.Enabled = False
      
          CmdSave.Enabled = False
          CmdNew.Enabled = True
      End Sub
      

      Jika sudah semua silahkan di run. jika berhasil maka akan tampak seperti gambar berikut ini

      Tampilkan Gambar





      Jika anda tidak ingin ribet silahkan download source codenya di link berikut. semoga dapat bermanfaat





      Tag:
      auto number,cara membuat nomor otomatis,cara membuat nomor otomatis dengan format tanggal,nomor otomatis di vb 6,cara mudah membuat nomor otomatis di vb

      Cara Download Di Blog Ini

      Seiring bergulirnya waktu, kini Tusfiles.net telah berganti theme/ tema/ template/ bungkus/ tampilan. TusFiles yang kita kenal adalah tempat berbagi file gratis yang sudah populer di kalangan pengunduh di seluruh dunia, salah satu yang terbesarnya adalah dari Indonesia.
      Banyak juga yang kebingunan untuk mengunduh ketika mereka dihadapkan dengan tampilan baru TusFiles V3. Tapi bila anda selalu paham dan cermat dalam hal membaca trik jebakan iklan, hal kebingungan itu harusnya tidak terjadi.
      Beberapa yang masih tetap ada dan mungkin akan selalu ada pada TusFiles adalah ceklis untuk menginstall Downloader, tombol sesungguhnya masih menggunakan bentuk yang kecil, iklan pop-up yang pastinya sudah siap muncul ketika kita menyentuh link di sana.
       Cara download di blog ini caranya sebagai beriku ini: setelah anda melakukan klik download maka akan muccul jendela baru kemudian tungggu lah 5 detik maka akan muncul tulisan Ads Skip pada pojok kanan atas klik lah tulisan tersebut maka akan di arahkan ke situs tusfiles berikut cara download source codenya dari situs tusfiles:
      1. Asumsikan anda sudah masuk di halaman unduh file yang anda maksud, misal dengan url tusfiles.net/abc123kfj

      2. Langkah yang pertama yang harus anda lakukan adalah menghilangkan ceklis atau centang di bagian bawah halaman yang bertuliskan "Use our download manager.."
      Tusfiles New
      Tusfiles New
      3. Tombol Download sesungguhnya seperti biasa, bukanlah yang besar maupun yang menonjol. Link unduh sebenarnya adalah yang bertuliskan nama file yang akan anda unduh seperti gambar no 2 di atas.
      Selamat mencoba dan semoga bermanfaat.

      Enkripsi Tabel Ms Access Menggunakan Visual Basic

      Enkripsi Tabel Ms Access Menggunakan Visual Basic.  Pasti anda pernah membuat sebuah aplikasi dengan menggunakan database MS Access, apakah tabel untuk akses ke aplikasi tersebut sudah di enkripsi ? supaya tidak sembarangan orang mengetahui user name dan password untuk login ke aplikasi tersebut. Tapi kebanyakan aplikasi yang dibuat tabelnya tidak di enkripsi, jika seseorang tidak bisa login ke aplikasi tersebut dapat dengan mudah membuka databasenya dengan cara membuka tabel untuk login, di situ dapat menemukan user dan passwordnya. Dan aplikasi yang kita buat dapat dengan mudah di buka oleh sembarang orang. Pada postingan sebelumnya saya pernah membahas cara menggunakan enkripsi MD5 pada database MySQL.

      Dalam postingan ini akan membahas cara enkripsi tabel ms access sehingga tidak dengan mudah aplikasi kita dibobol. Dengan cara menambakan beberapa karakter setiap karakter yang kita inputkan ke dalam textbox. pada tutorial Enkripsi Tabel Ms Access Menggunakan Visual Basic ini saya akan memberi contoh pada penggunaan input data user yang meliputi input user name dan password, kita akan mengenkripsi kedua field tersebut. Berikut langkah-langkahnya:

      Pertama buatlah sebuah database dari ms access silahkan beri nama test.mdb atau yang lain sesuai selera kemudian buatlah sebuah tabel dengan nama pengguna dengan dua field yaitu nama dan pass.seperti gambar berikut ini.
      Tampilkan Gambar



      Kedua bukalah visual basic 6 dan desainlah sebuah form siapkan 3 textbox dan dua commandbutton seperti form berikut ini

      Tampilkan Gambar


      Ketiga yaitu penulisan koding. Jika sudah selesai silahkan ketik koding seperti berikut ini jangan sampai ada yang salah ketik.

      Buatlah sebuah modul dengan cara klik menu project- add modul lalu ketikan kode berikut ini

      Public Conn As New ADODB.Connection
      Public RsUser As ADODB.Recordset
      Public sNama As String
      Public sPassword As String
      
      Public Sub Buka()
          Set Conn = New ADODB.Connection
          Set RsUser = New ADODB.Recordset
          Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb"
      End Sub
      

      Ketikan kode ini pada text1 sebagi inputan nama

      Private Sub Text1_KeyPress(KeyAscii As Integer)
          If KeyAscii <> 13 Then
              'untuk mengubah huruf kecil menjadi besar
              KeyAscii = Asc(UCase(Chr(KeyAscii)))
              'enkripsi dengan menambah karakter keyascii 29 karakter
              sNama = sNama & Chr(KeyAscii + 29)
          End If
      End Sub
      

      Lalu ketikan kode di bawah ini pada Text2

      Private Sub Text2_KeyPress(KeyAscii As Integer)
          If KeyAscii <> 13 Then
              'untuk mengubah huruf kecil menjadi besar
              KeyAscii = Asc(UCase(Chr(KeyAscii)))
              'enkripsi dengan menambah karakter keyascii 45 karakter
              sPassword = sPassword & Chr(KeyAscii + 45)
          End If
      End Sub
      

      Kemudian tulislah kode ini pada commandbutton yang digunakan untuk menyimpan data

      Private Sub Command1_Click()
          Call Buka
          If Text2.Text <> Text3.Text Then
              pesan = MsgBox("Pasword Tidak Sama, Ulangi Lagi...!", vbCritical, "Perhatian")
              Exit Sub
          Else
              Dim SQLAdd As String
              SQLAdd = " INSERT Into pengguna (nama,pass)values('" & sNama & "','" & sPassword & "')"
              Conn.Execute SQLAdd
              MsgBox "Penambahan User Baru Berhasil....", vbInformation, "Informasi..."
          End If
          Text1.Text = ""
          Text2.Text = ""
          Text3.Text = ""
      End Sub
      

      Jika sudah silahkan dijalankan dan diisi datanya. jika berhasil maka tabelnya jika dibuka hasilnya seperti berikut ini. semoga bermanfaat

      Tampilkan Gambar



      Jika menginngnkan source codenya silahkan download link dibawah ini. dalam source code tersebut sudah ada form untuk login ke menu utama dengan menggunakan tabel yang telah dienkripsi.





      Tags:
      Enkripsi, Enkripsi Tabel Ms Access Menggunakan Visual Basic,Enkripsi MD5,database,Pengamanan database,Password Login,enkripsi tabel,enkripsi database


      Cara Membuat Hyperlink Dengan Label

      Cara Membuat Hyperlink Dengan Label. Bagaimanakah caranya membuat hyperlink dengan label..? Maksud dan tujuan membuat hyperlink tersebut adalah jika kita klik label hyperlink tersebut maka akan membuka sebuah web site atau blog yang telah di tentukan alamatnya. misalnya kita mau buka http://www.yahoo.com pada hyperlink tersebut.

      Pada postingan sebelumnya saya pernah memposting sebuah komponen ocx yaitu HyperLabel.ocx dengan komponen tersebut kita dapat dengan mudah membuat Label Hyperlink tanpa menuliskan sebuah kode sedikitpun. Tapi pada kali ini saya akan membahas bagaimanakah caranya membuat hyperlink dengan label dengan cara manual yaitu dengan cara menuliskan kode-kode visual basic. Bagaimanakah caranya membuat hyperlink dengan label? Ikutilah langkah-langkahnya berikut ini semoga dapat bermanfaat.

      Siapkan sebuah form kemudian taruhlah sebuah label di dalam form tersebut kemudian rubahlah caption label tersebut misalnya www.google.com atau sesuai dengan selera anda seperti gambar berikut ini.



      Tampilkan Gambar




      Jika sudah klik labelnya kemudian rubahlah properties MousePointer menjadi 99 - Custom. Kemudian pada properties MouseIcon kamu klik tombolnya kemudian carilah salah satu cursor yang anda inginkan.( Disini saya sudah menyiapkan beberapa cursor di dalam file source code yang bisa anda download )



      Tampilkan Gambar

       



      Jika sudah silahkan double klik formnya kemudian tulislah kode berikut ini pada bagian general

      Const defaultcolor = &H800000
      Dim adress As String Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
      (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ 
      ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
       
      Private Const SW_NORMAL = 1
      

      Jika sudah silahkan double labelnya lalu tuliskan kode berikut ini:

      Private Sub Label1_Click()
          ShellExecute 0, "open", adress, vbNullString, vbNullString, SW_NORMAL
      End Sub
      

      Kemudian pada bagian form load tuliskan kode berikut ini

      Private Sub Form_Load()
          adress = Trim(Label1.Caption)
      End Sub
      

      Jika sudah silahkan di running dan dicoba hyperlinknya. Jika anda tidak ingin ribet membuatnya silahkan download source codenya di link di bawah ini.





      Keyword:
      Cara Membuat Hyperlink Dengan Label,Hyperlink,Label Hyperlink,Membuat Hyperlink,Tips And Trik Hyperlink,Source Code Hyperlink

      Contoh Penggunaan Progress Bar

      Contoh Penggunaan Progress Bar. Bagaimanakah menggunakan kontrol progress bar dalam visual basic ? Progress Bar ini dapat kita gunakan misalnya untuk proses loading aplikasi pada saat pertama kali kita buat, dan dapat membuat aplikasi yang dibuat tampak lebih profesional. Bagi yang belum bisa cara penggunaannya silahkan simak postingan saya ini dengan baik semoga dapat membantu dan bermanfaat.

      Dalam postingan ini saya menggunakan kontrol bawaannya visual basic 6. Dengan cara klik menu Project pilih Component kemudian cari "Microsoft Windows Common Controls 6.0 (SP6)" jika tidak ada cari "Microsoft Windows Common Controls 5.0 (SP2)" kemudian centang lalu klik OK.

      Tampilkan Gambar



      Kemudian siapkan sebuah form lalu taruhlah komponen atau kontrol progress bar,timer,dan command button seperti gambar berikut ini.

      Tampilkan Gambar



      Jika sudah setting properties timernya pada bagian interval, silahkan kamu isi dengan angka 50 atau sesuai selera. semakin kecil nilainya semakin cepat pergerakan progress barnya.

      Jika sudah double klik command button lalu isikan kode programnya seperti berikut ini

      Private Sub Command_Click()
          ProgressBar1.Value = ProgressBar1.Min
          Timer1.Enabled = True
      End Sub
      

      Lalu double klik kontrol timernya kemudian tulis kode programnya seperti berikut ini.

      Private Sub Timer1_Timer()
          ProgressBar1.Value = ProgressBar1.Value + 1
          If ProgressBar1.Value >= ProgressBar1.Max Then
              Timer1.Enabled = False
          End If
      End Sub
      

      kemudian Run. jika berhasil maka akan seperti gambar berikut ini.

      Tampilkan Gambar



      Demikian postingan dari saya semoga dapat bermanfaat. Jika mengingikankan source codenya dan tidak ingin ribet. silahkan download di link di bawah ini. saya sertakan dua contoh penggunaan progress bar






      Keyword:
      Contoh Penggunaan Progress Bar,Progress Bar,Contoh Progress Bar, Source Code Penggunaan Progress Bar,Source code Progress Bar,Tips And Trik Progress Bar


      Sapta.OCX For VB 6

      Sapta.OCX adalah seperangakat ocx  yang terdiri dari 8 componen terdiri dari barner,button,frame,loading,progres,risize,textbox,editbox.
      Yang semuanya itu bisa membuat desain tampilan aplikasi yang kita buat bertambah menarik dan kelihatan lebih profesional




      Silahkan Download Sapta.OCX dilink berikut ini





      Keywords:
      free Sapta ocx vb6, free Sapta user control vb6, free download Sapta  ocx, custom  toolbox ocx, custom progressbar ocx, custom label ocx, custom textbox ocx, custom combobox ocx, custom control ocx, custom frame ocx,skin for vb6, active skin form, style for vb6, source code, download user control ocx vb6, vb6 style xp,vb6 style office, button xp,button office, custom controls, tutorial vb6, contoh program vb, free download aplikasi program vb, Sapta.ocx download

      Download Visual Studio Cumulative Updater SP6

      Sebelum instals Cumulative Updater SP6 ini silahkan update dulu Visual Studio 6 nya dengan Update Visual Studio 6 SP 6 terlebih dulu jika tidak maka untuk menginstalnya akan mengalami kegagalan alias tidak bisa diinstall karena membutuhkan Service Pack 6.

      Instal updater Cumulative Service Pack 6 ini untuk lebih memutakhirkan lagi Visual Studio 6 Anda. Dengan mengintal updater ini, memugkinkan visual basic 6 anda bisa berjalan di windows vista dan windows7 secara mulus.

      Silahkan download Visual Studio Cumulative Updater SP6 nya





      Download VS Cumulative Updater SP6







      Keyword:
      error vb6 di windows7, cara mengatasi error vb6 di windows7, error vb6 di windows vista, file exe vb6 error di windows7, cara mengatasi error vb6 di windows7, vb6 updater download, vb6 service pack offline installer, download sp6 installer,Download Visual Studio Cumulative Updater SP6,Update VB 6 SP 6

      Download Update VS 6 Service Pack 6

      http://1.bp.blogspot.com/-6_eJJCogWYs/Uqpeq9AYywI/AAAAAAAABtc/wFG8jai0NrY/s1600/visual-studio-6.jpeg 
      Untuk Anda yang masih belum meng-update aplikasi visual studio 6 atau pun yang termasuk didalamnya, seperti VB6, VC++ 6, FoxPro 6, dll. Silahkan download updatetannya semoga dapat bermanfaat.



      Silahkan Download File-Filenya berikut ini :


      Setelah di download semua silahkan di install supaya aplikasi vb 6 nya  tidak sering terjadi error.


      Keyword:
      Download Update VB 6 Service Pack 6,Download Update Visual Studio 6 Service Pack 6,Download Update Visual Basic 6 Service Pack 6,update visual basic 6
      da yang masih belum meng-update aplikasi visual studio 6 atapun yang termasuk didalamnya, seperti VB6, VC++ 6, FoxPro 6, dll. Sebenarnya apa/ada apa sih di VS6 SP6 ini? - See more at: http://oknoburogu.blogspot.com/2013/12/download-visual-studio-6-service-pack-6.html#sthash.939qYcUg.dpuf
      Untuk Anda yang masih belum meng-update aplikasi visual studio 6 atapun yang termasuk didalamnya, seperti VB6, VC++ 6, FoxPro 6, dll. Sebenarnya apa/ada apa sih di VS6 SP6 ini? - See more at: http://oknoburogu.blogspot.com/2013/12/download-visual-studio-6-service-pack-6.html#sthash.939qYcUg.dpuf
      Untuk Anda yang masih belum meng-update aplikasi visual studio 6 atapun yang termasuk didalamnya, seperti VB6, VC++ 6, FoxPro 6, dll. Sebenarnya apa/ada apa sih di VS6 SP6 ini? - See more at: http://oknoburogu.blogspot.com/2013/12/download-visual-studio-6-service-pack-6.html#sthash.939qYcUg.dpuf