This is a Hitskin.com skin preview
Install the skin • Return to the skin page
{Ask} memasukan link pada command buton (vb)
2 posters
Halaman 1 dari 1
{Ask} memasukan link pada command buton (vb)
gan da yg tau gx cara ngasih link pada comand buton di vb.
jadi pas button'a di clik maka browser langsung menju ke link
yg kita masukan.
thank's
jadi pas button'a di clik maka browser langsung menju ke link
yg kita masukan.
thank's
Re: {Ask} memasukan link pada command buton (vb)
Bantu sundul aja gan,,,
Ane punya pertanyaan yang sama,
Yang tau mohon dijawab ya?
Ane punya pertanyaan yang sama,
Yang tau mohon dijawab ya?
Finan- Jumlah posting : 71
Join date : 14.02.11
Re: {Ask} memasukan link pada command buton (vb)
Sob ane nemu solusinya,,, Nyasar di google dapet ginian,,,
nih gan ane kasih tau code nya supaya bisa buka suatu link + nge check apakah ada koneksi internet apa engga
kalo ga ada koneksi internetnya maka link ga bisa di buka
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
*Tambah 1 Command Button gan
trus masukin code ini
If InternetCheckConnection("http://www.mydisha.blogspot.com", FLAG_ICC_FORCE_CONNECTION, 0&) <> 0 Then
ShellExecute Me.hwnd, "Open", "http://www.mydisha.blogspot.com", "", "", 1
Else
MsgBox "Komputer anda tidak terhubung ke internet", vbExclamation, "No Connection"
End If
nih gan ane kasih tau code nya supaya bisa buka suatu link + nge check apakah ada koneksi internet apa engga
kalo ga ada koneksi internetnya maka link ga bisa di buka
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
*Tambah 1 Command Button gan
trus masukin code ini
If InternetCheckConnection("http://www.mydisha.blogspot.com", FLAG_ICC_FORCE_CONNECTION, 0&) <> 0 Then
ShellExecute Me.hwnd, "Open", "http://www.mydisha.blogspot.com", "", "", 1
Else
MsgBox "Komputer anda tidak terhubung ke internet", vbExclamation, "No Connection"
End If
Finan- Jumlah posting : 71
Join date : 14.02.11
Similar topics
» [ask] link mirror itu apa gan? terus bedanya sama link lokal dan link luar?
» command & conquer eror
» siapa yg tahu ttg "AT-COMMAND"
» Req Command And Conquer Generals Zero Hour
» Command & Conquer 4: Tiberian Twilight (PC/2010)
» command & conquer eror
» siapa yg tahu ttg "AT-COMMAND"
» Req Command And Conquer Generals Zero Hour
» Command & Conquer 4: Tiberian Twilight (PC/2010)
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
Sun Jul 21, 2019 12:45 am by Rulytea
» Jasa Olah Data SPSS
Sun Apr 16, 2017 11:58 am by partaidemokrat
» Ask: Membuat program berbasis android
Mon Apr 06, 2015 12:30 am by Damar
» New Jupiter MX King 150cc brow, berapa yah harga nya ?
Thu Dec 11, 2014 10:37 am by dadangherdiana
» MEMBUAT INJEK PROXY ITU MUDAH
Mon Nov 03, 2014 12:22 pm by djohn6000
» apa ada yang bisa bikin aplikasi penjualan pulsa android
Sun Oct 26, 2014 3:00 pm by gyokosaki
» Ayo Download Win XP SP4 (Versi Tidak Resmi) bagi Para Fans Setia Win XP
Mon Sep 08, 2014 12:57 pm by dytoshare
» [SHARE] Devil May Cry 4 PC (2008)
Fri Jun 13, 2014 2:55 am by cendolmu
» [SHARE] Enemy Front PC (2014)
Fri Jun 13, 2014 2:36 am by cendolmu