Aplikasi Run Dengan VB6

Code:

Private Sub cmdClose_Click()
End
End Sub

Private Sub cmdOpen_Click()
With comdlg
.ShowOpen
txt.Text = .FileName
End With
End Sub

Private Sub cmdRun_Click()
On Error GoTo err
Shell txt.Text, vbNormalFocus
err:
End Sub

Private Sub Form_Load()
comdlg.Filter = ".exe|*.exe"
End Sub

Aplikasi ini sama seperti run yang ada di komputer anda....
tak ada perbedaan sama sekali soal menggunakannya ...

Credit: Saya Sendiri

aaa123 wrote:

[You must be registered and logged in to see this image.]

Code:

Private Sub cmdClose_Click()
End
End Sub

Private Sub cmdOpen_Click()
With comdlg
.ShowOpen
txt.Text = .FileName
End With
End Sub

Private Sub cmdRun_Click()
On Error GoTo err
Shell txt.Text, vbNormalFocus
err:
End Sub

Private Sub Form_Load()
comdlg.Filter = ".exe|*.exe"
End Sub

Aplikasi ini sama seperti run yang ada di komputer anda....
tak ada perbedaan sama sekali soal menggunakannya ...

Credit: Saya Sendiri

wew, nih kan enak, ada yg share VB 6...
g VB 8 ama VB 10 mulu, ane g pnya yg gituan
hehehehhe
Agan ada link VB 10 g ?
ane minta

Download VB 2010 Online Installation

Code:

http://download.microsoft.com/download/A/3/8/A3844D2D-567E-4D94-98FF-A16D06F2103E/vb_web.exe

Key:

Code:

2KQT8-HV27P-GTTV9-2WBVV-M7X96

Download VB 2008 Online Installation

Code:

http://download.microsoft.com/download/d/c/3/dc3439e7-5533-4f4c-9ba0-8577685b6e7e/vbsetup.exe

aaa123 wrote:

Download VB 2010 Online Installation

Code:

http://download.microsoft.com/download/A/3/8/A3844D2D-567E-4D94-98FF-A16D06F2103E/vb_web.exe

Key:

Code:

2KQT8-HV27P-GTTV9-2WBVV-M7X96

Download VB 2008 Online Installation

Code:

http://download.microsoft.com/download/d/c/3/dc3439e7-5533-4f4c-9ba0-8577685b6e7e/vbsetup.exe

wahh,,, makasih banyak gan, padahal ane mo kasih cendol tadi, besok ane kasihnya gan,,, kayaknya mas rieqyNS13 bakaal ada saingan nih,,, hahahahah

wew,,,,, nice share gan,,,ane coba dulu deh kebetulan ada nih VB6 tapi yang portable bisa gk gan

Btw Nice Share gan

agai132 wrote:

wew,,,,, nice share gan,,,ane coba dulu deh kebetulan ada nih VB6 tapi yang portable bisa gk gan

Btw Nice Share gan

kayaknya bisa sih belum dicoba yg portable

nice share bro..tapi g tahu cara susunnya..soalnya cuman di kasih script doank..orang kan bingung bro

Kurohige wrote:

nice share bro..tapi g tahu cara susunnya..soalnya cuman di kasih script doank..orang kan bingung bro

ini tutornya
tambah:
3 command button
1 textbox
component "Microsoft Common Dialog Control 6.0"
=============
1 command button captionnya: Open
1 command button captionnya: Run
1 command button captionnya: Close

command yg captionya "Open" ganti namenya menjadi: cmdOpen
command yg captionya "Run" ganti namenya menjadi: cmdRun
command yg captionya "Close" ganti namenya menjadi: cmdClose

ganti name textbox1 menjadi: txt

aaa123 wrote:

Kurohige wrote:

nice share bro..tapi g tahu cara susunnya..soalnya cuman di kasih script doank..orang kan bingung bro

ini tutornya
tambah:
3 command button
1 textbox
component "Microsoft Common Dialog Control 6.0"
=============
1 command button captionnya: Open
1 command button captionnya: Run
1 command button captionnya: Close

command yg captionya "Open" ganti namenya menjadi: cmdOpen
command yg captionya "Run" ganti namenya menjadi: cmdRun
command yg captionya "Close" ganti namenya menjadi: cmdClose

ganti name textbox1 menjadi: txt

sep,,, laen kali gini aja gan, lengkap" di semua posting agan
jadi enak ngertiinnya

aaa123 wrote:

Kurohige wrote:

nice share bro..tapi g tahu cara susunnya..soalnya cuman di kasih script doank..orang kan bingung bro

ini tutornya
tambah:
3 command button
1 textbox
component "Microsoft Common Dialog Control 6.0"
=============
1 command button captionnya: Open
1 command button captionnya: Run
1 command button captionnya: Close

command yg captionya "Open" ganti namenya menjadi: cmdOpen
command yg captionya "Run" ganti namenya menjadi: cmdRun
command yg captionya "Close" ganti namenya menjadi: cmdClose

ganti name textbox1 menjadi: txt

nah gitu lain kali yg lengkap bro ,,biar member lain ga bingung

Vierra wrote:

aaa123 wrote:

ini tutornya
tambah:
3 command button
1 textbox
component "Microsoft Common Dialog Control 6.0"
=============
1 command button captionnya: Open
1 command button captionnya: Run
1 command button captionnya: Close

command yg captionya "Open" ganti namenya menjadi: cmdOpen
command yg captionya "Run" ganti namenya menjadi: cmdRun
command yg captionya "Close" ganti namenya menjadi: cmdClose

ganti name textbox1 menjadi: txt

sep,,, laen kali gini aja gan, lengkap" di semua posting agan
jadi enak ngertiinnya

ok sip