ขอหลักการเขียน MsgBoX ของ VB.2008

Zone-IT โซนไอที : สังคมดีๆบนโลกออนไลน์

macloteash

3 ธันวาคม พ.ศ. 2552, 17.07 น.
มันมีหลักการเขียนยังไงเหรอครับ พอดีวันที่ อ. สอนผมขาดเรียน

อยากให้ สาธิตหน่อยครับ

เช่น MsgBox ว่า คุณแน่ใจหรือไหมว่าจะลบและแก้ไขข้อมูล

ปุ่ม 1 ตกลง
ปุ่ม 2 ยกเลิก

ขอบคุณครับ

ปล. บอร์ดนี่น่าจะแยก VB.net เป็นอีกห้องนึง  Java อีกห้องนึง เพราะผมคิดว่ามันรวมกันเยอะอะครับ

sutthalak

3 ธันวาคม พ.ศ. 2552, 22.38 น.
โค๊ด:

MsgBox("คุณแน่ใจหรือไม่ ที่จะลบข้อมูลนี้", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "ลบข้อมูล")
MsgBox("คุณแน่ใจหรือไม่ ที่จะลบข้อมูลนี้", MsgBoxStyle.Exclamation + MsgBoxStyle.OkCancel, "ลบข้อมูล")

แต่ปุ่มเป็นภาษาอังกฤษนะครับ

macloteash

6 ธันวาคม พ.ศ. 2552, 0.12 น.
ขอบใจจ้า

sak2005

12 มกราคม พ.ศ. 2553, 1.17 น.
มันมีหลักการเขียนยังไงเหรอครับ พอดีวันที่ อ. สอนผมขาดเรียน

อยากให้ สาธิตหน่อยครับ

เช่น MsgBox ว่า คุณแน่ใจหรือไหมว่าจะลบและแก้ไขข้อมูล

ปุ่ม 1 ตกลง
ปุ่ม 2 ยกเลิก

ขอบคุณครับ

ปล. บอร์ดนี่น่าจะแยก VB.net เป็นอีกห้องนึง  Java อีกห้องนึง เพราะผมคิดว่ามันรวมกันเยอะอะครับ

โค๊ดคำสั่งเกี่ยวกับ กรอบหรือกล่องข้อความ ระหว่าง vb6 กับ vb2008 ..สคริ๊ปที่เขียนจะไม่เหมือนกัน
แต่ให้ผลเหมือนกัน ตัวอย่างเช่น..
vb6 ใช้คำสั่ง:  

โค๊ด:
Private Sub Command1_Click()
btncode = MsgBox("Do you wanted test button?", vbYesNo, "Sample Project Test")
If btncode = vbYes Then
MsgBox "You clicked..YES"
Else
MsgBox "You clicked..NO"
End If
End Sub
---------------------------------------------------------------------------------
vb2008 ใช้คำสั่ง:

โค๊ด:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Message As String = "Do you wanted Test button?"
        Dim Caption As String = "Sample Project"
        Dim Buttons As Integer = MessageBoxButtons.YesNo
        Dim btncode As DialogResult
        btncode = MessageBox.Show(Message, Caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question, _
        MessageBoxDefaultButton.Button1)
        If btncode = System.Windows.Forms.DialogResult.Yes Then
            MessageBox.Show("You clicked..YES")
        Else
            MessageBox.Show("You clicked..NO")
        End If
    End Sub
End Class

pencil

12 มกราคม พ.ศ. 2553, 13.57 น.
โค๊ด:
If MsgBox("ยืนยันการลบข้อมูล", 16 + 4, "DELETE DATA") = 7 Then Return