[mojojojoe]

ช่วยดูตรงนี้ให้ทีสิ คับ ประโยคนี้...

Private Sub CmdFrame_DragDrop(Source As Control, X As Single, Y As Single)
CmdSchool1.Caption = "มหาวิทยาลัย ABAC"
CmdSchool2.Caption = "จุฬาลงกรณ์มหาวิทยาลัย"
CmdSchool3.Caption = "มหาวิทยาลัยธรรมาศาสตร์"
CmdSchool4.Caption = "มหาวิทยาลัยรังสิต"
CmdSchool5.Caption = "มหาวิทยาลัย หอการค้า"
CmdSchool6.Caption = "มหาวิทยาลัย เชียงใหม่"
CmdSchool7.Caption = "มหาวิทยาลัย แม่โจ้"
End Sub

Private Sub CmdShow_Click()
Dim a As String, b As String, c As String, d As String, e As String, f As String
Dim result As String
a = "ชื่อ "
b = CmdBox1.Text
c = " คณะ "
d = CmdBox2.Text
e = " เรียนที่ "
f = " "
If CmdSchool1.Caption Then
result = CmdSchool1.Caption
Else
If CmdSchool2.Caption Then
result = CmdSchool2.Caption
Else
If CmdSchool3.Caption Then
result = CmdSchool3.Caption
Else
If CmdSchool4.Caption Then
result = CmdSchool4.Caption
Else
If CmdSchool5.Caption Then
result = CmdSchool5.Caption
Else
If CmdSchool6.Caption Then
result = CmdSchool6.Caption
Else
result = CmdSchool7.Caption
End If
End If
End If
End If
End If
End If
End If
result = a + b + c + d + e + f
CmdBox3 = result
End If
End Sub

คือที่อยากจะถาม ก็คือ ผมอยากให้ f = มันเป็นเหมือนที่ผมกำหนดใน IF อ่ะ คับ แต่ผมทำไม่ได้ สัก ที รบกวนทุกๆท่านช่วย สอนผมที นะ คับ(ผมมั่วสุดๆ ^ ^")

[oMarso]

ลองให้ f อยู่ใน if สิครับ

ผมตอบตรงคำถามป่ะครับ ??

[mojojojoe]

ผมไม่รู้จะเขียนยังไง ดี อยากจะขอความช่วยเหลือ หน่อยอ่า คับ
มันขึ้น Debug ตลอด ช่วยแก้ให้ที สิ คับ

ให้ f = ข้อความใน If ทั้งหมด T_T

[mojojojoe]

มันขึ้น
complie error;
End IF Without block IF ทำไงดี คับ

[mojojojoe]

 VB_8203.zip (2.89K)
Number of downloads: 2
หรือ จะช่วยดูให้ผมทีนะ ไฟล์ที่ผมเอามาให้ทุกท่านดูเลยก็ได้อ่า คับ ช่วยแก้ให้ที นะ คับ งง

[MIX THE WIZARD]

ท่านต้องการอย่างนี้รึเปล่าครับ
การที่ท่าน

CODE

if cmdschool1.caption then

มันไม่ได้อะไรขึ้นมาหรอก ต้องใช้

CODE

if cmdschool1.value = true then

อันนิ้จะตรวจว่าเลือกอันนี้รึเปล่า
แล้วก็ end if เกินมา 2 ตัวมั้ง จำไม่ได้
 1.zip (2.91K)
Number of downloads: 4

This post has been edited by MIX THE WIZARD: 29 November 2007 - 08:10 AM

[mojojojoe]

ขอบคุณมากๆ เลย คับ สุดยอด ไปเลย อิอิ

[mojojojoe]

แล้วพอจะมี บางกรณีไหม คับ ที่ แบบว่า รวม ทั้ง ชื่อ และ คณะ มาไว้ใน cmdbox3 หรือช่อง textbox อ่า คับ โดยที่ไม่ต้องกำหนด ตัว แปร อย่าง a+b+c+d+e+f อะไรประมาณนี้อ่า คับ
พอจะมีวิธีไหม คับ

CODE

Private Sub CmdFrame_DragDrop(Source As Control, X As Single, Y As Single)
CmdSchool1.Caption = "มหาวิทยาลัย ABAC"
CmdSchool2.Caption = "จุฬาลงกรณ์มหาวิทยาลัย"
CmdSchool3.Caption = "มหาวิทยาลัยธรรมาศาสตร์"
CmdSchool4.Caption = "มหาวิทยาลัยรังสิต"
CmdSchool5.Caption = "มหาวิทยาลัย หอการค้า"
CmdSchool6.Caption = "มหาวิทยาลัย เชียงใหม่"
CmdSchool7.Caption = "มหาวิทยาลัย แม่โจ้"
End Sub

แล้วอย่างนี้ ตัวนี้ก็เท่ากับว่าไม่มีความจำเป็นแล้ว รึ ป่าว คับ ช่วยบอกทีนะ ขอบคุณคับ

This post has been edited by mojojojoe: 30 November 2007 - 05:13 PM