Menambahkan windows API pada VB .NET

Di sini akan dipaparkan cara untuk menambahkan fungsi Windows API pada VB. NET

Banyak fungsi yang ada dalam Windows API sudah terintegrasi pada VB .NET. Hal ini dapat
meminimalisasi kita untuk mendeklarasikan ulang fungsi Windows API.

Walaupun begitu, kita dapat mendefinisikan fungsi Windows API layak sudut pandang VB 6.
Dalam VB 6 kita kenal yang namanya Declare, yaitu suatu pernyataan untuk
menggunakan/mengimpor suatu Dynamic Link Libraries (DLL) dalam program kita.
Pada dasarnya dengan cara yang tidak jauh berbeda, kita dapat meniru sintaks VB 6 dalam
hal pendeklarasian suatu DLL.

Namun kita akan mencoba mendeklarasikan DLL dengan sudut pandang .NET.
Perhatikan contoh di bawah ini:
1. Buatlah suatu project baru (Windows Application).

2. Tambahkan tombol pada form (di sini diberi nama Button1).

3. Masuk ke source code editor dan tambahkan pernyataan berikut pada bagian atas
source code.
Imports System.Runtime.InteropServices

4. Tambahkan contoh pendeklarasian DLL berikut pada form:

CharSet:=CharSet.Unicode, ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function _
MoveFile(ByVal src As String, ByVal dst As String) As Boolean
' Biarkan kosong
End Function

5. Tambahkan pula kode berikut pada Button1_Click.

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
Dim RetVal As Boolean
RetVal = MoveFile("c:\tmp\Test.txt", "c:\Test.txt")
If RetVal = True Then
MsgBox("The file was moved successfully.")
Else
MsgBox("The file could not be moved.")
End If
End Sub

6. Buat file dengan notepad dan simpan sebagai (C:\tmp\Test.txt).

7. Jalankan program