Cara Mengatasi Run Time Error 70 : Permission Denied Pada Visual Basic 6.0 (VB6)

Baca Juga :

Kali ini admin akan berbagi sebuah source code Visual Basic 6.0 (VB6) Cara Mengatasi Run Time Error 70 : Permission Denied Pada Visual Basic 6.0 (VB6)

Tambahkan sebuah module kemudian copykan coding dibawah ini ke module tersebut.

Option Explicit
Private Const KEYEVENTF_KEYUP = &H2
Private Const INPUT_KEYBOARD = 1

Private Type KEYBDINPUT
wVk As Integer
wScan As Integer
dwFlags As Long
time As Long
dwExtraInfo As Long
End Type

Private Type GENERALINPUT
dwType As Long
xI(0 To 23) As Byte
End Type

Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Public Function SendKeysA(ByVal vKey As Integer, Optional booDown As Boolean = False)
Dim GInput(0) As GENERALINPUT
Dim KInput As KEYBDINPUT
KInput.wVk = vKey

If Not booDown Then
KInput.dwFlags = KEYEVENTF_KEYUP
End If
GInput(0).dwType = INPUT_KEYBOARD
CopyMemory GInput(0).xI(0), KInput, Len(KInput)
Call SendInput(1, GInput(0), Len(GInput(0)))
End Function

Kemudian double klik pada TextBox dan ubah codingnya yang semula

Text1.Text = Format(Text1, "#,##0"): SendKeys "{END}"

menjadi

Text1.Text = Format(Text1, "#,##0"): SendKeysA vbKeyEnd, True

Sekarang coba RUN/F5 dan inputkan karakter berupa angka ke TextBox dan Run Time Error 70 : Permission Denied telah hilang. Semoga penjelasan singkat ini dapat bermanfaat dan terima kasih banyak atas kunjungannya.

Cara Mengatasi Run Time Error 70 : Permission Denied Pada Visual Basic 6.0 (VB6)

0 Response to "Cara Mengatasi Run Time Error 70 : Permission Denied Pada Visual Basic 6.0 (VB6)"

Post a Comment