Daha onceden verildimi bilmiyorum.Yeni başlayan arkadaşlar icin gerekli olduğunu duşunduğum bir kodu resimli olarak anlatabildiğim kadar anlatmaya calıştım.Sırasyla resimleri izlediğinizde yapmamak imkansız gibi.Hemen anlatıma geceyim.
İlk olarak 'Microsoft Visual Basic 6.0' adlı programımızı acıyoruz.Actıktan sonra yeni form oluşturup aşağıdaki resimleri takip edin sırasıyla;
[IMG]http://img398.**************/img398/5527/46690480kn8.jpg[/IMG]
Butonumuzu oluşturduk buton uzerine gelerek cift tıklıyoruz ve karşımıza kod sayfası cıkıyor.İlk gelen sayfadaki kodları siliyoruz.Tamamen hepsini sildikten sonra;
Kod:
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_SHOWDEFAULT = 10 Private Const SW_SHOWMAXIMIZED = 3 Private Const SW_SHOWMINIMIZED = 2 Private Const SW_SHOWMINNOACTIVE = 7 Private Const SW_SHOWNA = 8 Private Const SW_SHOWNOACTIVATE = 4 Private Const SW_SHOWNORMAL = 1 Private Const SW_SHOW = 5 Private Sub Command1_Click() ShellExecute hwnd, "open", "http://www.frmtr.com", vbNullString, vbNullString, conSwNormal End Sub
bu kodu yapıştırıyoruz.Aşağıdaki gibi ;
[IMG]http://img384.**************/img384/9660/58066001at2.jpg[/IMG]
Evet bundan sonrası daha basit
Şimdi deniyoruz olup olmadığını gormek icin;
[IMG]http://img384.**************/img384/3571/39944310ml6.jpg[/IMG]
Resimdede gorduğunuz gibi gayet guzel bir şekilde calışıyor.
[IMG]http://img172.**************/img172/5518/78550673de0.jpg[/IMG]
-Ben daha fazla bağlantı eklemek istiyorum.Aynı işlemimi yapıcam ?
Hayır aynı işlem değil.Bu sefer daha kolayı iki veya daha fazla bağlantılar icin sadece buton altına;
Kod:
ShellExecute hwnd, "open", "http://www.frmtr.com", vbNullString, vbNullString, conSwNormal
kodunu yapıştırıyorsunuz.İşlemimiz tamamlanıyor.
[IMG]http://img235.**************/img235/4747/fasfaskg3.jpg[/IMG]
ForumTr > Jigsaw Saygılarımla...
__________________