Langkah 1: Masukkan "Button"

Contoh:

PERHATIAN: (sila sunting "Properties" untuk komponen ini)

name = "ambilGambar_btn" (wajib)

Text = "Ambil Gambar" (tidak wajid)

Langkah 2: Masukkan :"PictureBox"

Contoh:

PERHATIAN: (sila sunting "Properties" untuk komponen ini)

name = "gambar_pc" (wajib)

Langkah 3: Masukkan "OpenFileDialog"

Cara: Masukkan

A1: Tarik dari "ToolBox" ke dalam bahagian borang anda.

A2: secara otomatik sistem perisian itu.

Contoh:

PERHATIAN: (sila sunting "Properties" untuk komponen ini)

name = "kotakPilihFail" (wajib)

Text = "kotakPilihFail" (tidak wajid)

Langkah 4: Masukkkan Aturcara

Public Class Form1

Private Sub ambilGambar_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ambilGambar_btn.Click
If kotakPilihFail.ShowDialog() = DialogResult.OK Then
Dim failKomputer As New System.IO.StreamReader(kotakPilihFail.FileName)
gambar_pb.ImageLocation = kotakPilihFail.FileName
failKomputer.Close()
End If
End Sub
End Class

Popularity: 2% [?]