Cara Mengatasi Run Time Error 70:Permission Denied Dengan Kode VB6

Pada artikel kali ini Admin akan berbagi sebuah kode untuk mengatasi Run Time Error 70 : Permission Denied pada Visual Basic 6.0.

Berikut dibawah ini adalah gambar Run Time Error 70 : Permission Denied pada Visual Basic 6.0 :

Run Time Error 70 : Permission Denied 

Untuk mengetahui bagaimana error diatas terjadi coba Anda tambahkan 1 buah Textbox dan 1 buah Module di Form, kemudian ketik kode dibawah ini dibagian Module1 :

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 ketik kode dibawah ini bagian Textbox

Private Sub Text1_Change()

'kode yang error

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

End Sub

Kemudian jalankan program lalu edit Textbox, maka pesan Run Time Error 70:Permission Denied akan muncul.

Lalu bagaiman cara mengatasi error diatas agar tidak muncul, caranya adalah dengan mengubah kode diatas menjadi

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

Sekarang jalankan kode yang sudah di ubah dan input karakter maka Run Time Error 70:Permission Denied tidak muncul lagi.

Demikianlah artikel singkat hari ini tentang cara mengatasi Run Timer Error 70 Denied Permission.

Semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba, semoga berhasil.

Related Post: MessageBox