수다닷컴

Private Sub address_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Browser.Navigate address.Text
End Sub
Private Sub buttonback_Click()
Browser.GoBack
End Sub
Private Sub buttonfront_Click()
Browser.GoForward
End Sub
Private Sub buttonrefresh_Click()
Browser.Refresh
End Sub
Private Sub Form_Load()
Browser.Navigate www.naver.com
End Sub
Private Sub Browser_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
SendKeys {RIGHT}
SendKeys {ENTER}
End Sub
Private Sub end_Click()
End
End Sub
Private Sub Form_Resize()
Browser.Width = mainfrm.ScaleWidth
Browser.Height = mainfrm.ScaleHeight
address.Width = mainfrm.ScaleWidth
End Sub
Private Sub inf_Click()
frmAbout.Show
End Sub
이 소스코드로 현제 하고있는데요..
F5를 눌러 test를 하면 안움직임;;
즉 실행된 프로그램이 켜지긴 켜지는데 반응을 못해요
버튼을 누르면 안됨 왜 그런걸까요

신청하기