สร้าง form และวาง
control ก่อนCommon Dialog Control
control คัวนี้จะเป็นตัวช่วยเราเช่น เมื่อเราต้องการโหลดรูปภาพเข้ามาในโปรแกรม หรือโหลดไฟล์ต่างๆ ในที่นี้ผมจะยกตัวอย่างการโหลดรูปภาพน๊ะครับ
สร้าง form และวาง
control ก่อน
1. เรียก component ที่ชื่อ "Microsoft Common Dialog Control 6.0" ขึ้นมาก่อน
2. นำ control Common Dialog Control มาวางก่อนแล้วให้ชื่อว่า "CommonDialog1"
3. สร้างปุ่มกดขึ้นมาอันนึง แล้วตั้งชื่อว่า "cmdLoadPicture"
4. นำ Image box มาวางแล้วตั้งชื่อว่า "imgPicture"
เขียน code ตามนี้
Private Sub cmdLoadPicture_Click()
CommonDialog1.DialogTitle = "Select Picture File"
CommonDialog1.Filter = "Pictures (*.jpg;*.bmp;*.gif;*.wmf)|*.jpg;*.bmp;*.gif;*.wmf"
CommonDialog1.ShowOpen
If CommonDialog1.FileName Like "*.jpg" Then
imgPicture.Picture = LoadPicture(CommonDialog1.FileName)
ElseIf CommonDialog1.FileName Like "*.bmp" Then
imgPicture.Picture = LoadPicture(CommonDialog1.FileName)
ElseIf CommonDialog1.FileName Like "*.gif" Then
imgPicture.Picture = LoadPicture(CommonDialog1.FileName)
ElseIf CommonDialog1.FileName Like "*.wmf" Then
imgPicture.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Sub
บรรทัดแรกหมายถึง กำหนด title ให้กับ dialog (ไม่สำคัญเท่าไหร่)
บรรทัดสอง เป็นการกำหนด filter คือถ้าไม่กำหนด ตัว dialog จะแสดงไฟล์อื่นที่ไม่ใช่รูปภาพออกมาด้วย(จะทำให้เกิด error ได้)
ส่วนของการตรวจสอบ if คือดูว่าไฟล์ที่ผู้ใช้เลือกมานั้น เป็นรูปภาพหรือเปล่า ถ้าใช่ก็โหลดภาพไปแสดงที่ imgPicture
by