22/11/2009, 22:01
Arkadaslar konu ile ilgili farkli mesajlar vardi ama yeni bir baslikta sormak daha iyi olur diye dusundum.
Form uzerinde bir butona tiklandiginda icinde text bolumunde yazan bilgiyide alarak bir int. explorer actirmak istiyorum.
yani wwww.google.com/ text21 e yazilan ve =fast gibi bir uzantisi olan.
ekteki sekilde yaptim. ancak sayfanin acilma suresi oldukca uzun suruyo. buton tıklandıktan sonra web sayfasinin gelmesi cok vakit aliyor.
diger sekilde daha hizli sayfayi acabiliyorum ancak bu sefer adrese istedigim gibi ekleme yapamiyorum.
yardimci olabilirmisiniz..
tesekkurler..
Private Sub komut1_Click()
a = "http://www.google.com/"
b = Me.Text21
c = "=fast"
Me.komut1.HyperlinkAddress = a & b & c
End Sub
2.tur
Private Sub Komut24_Click()
a = "http://www.google.com/"
b = Me.Text21
c = "=fast"
d = a & b & c
Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & d, vbMaximizedFocus)
End Sub
Form uzerinde bir butona tiklandiginda icinde text bolumunde yazan bilgiyide alarak bir int. explorer actirmak istiyorum.
yani wwww.google.com/ text21 e yazilan ve =fast gibi bir uzantisi olan.
ekteki sekilde yaptim. ancak sayfanin acilma suresi oldukca uzun suruyo. buton tıklandıktan sonra web sayfasinin gelmesi cok vakit aliyor.
diger sekilde daha hizli sayfayi acabiliyorum ancak bu sefer adrese istedigim gibi ekleme yapamiyorum.
yardimci olabilirmisiniz..
tesekkurler..
Private Sub komut1_Click()
a = "http://www.google.com/"
b = Me.Text21
c = "=fast"
Me.komut1.HyperlinkAddress = a & b & c
End Sub
2.tur
Private Sub Komut24_Click()
a = "http://www.google.com/"
b = Me.Text21
c = "=fast"
d = a & b & c
Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & d, vbMaximizedFocus)
End Sub