ขออนุญาตสอบถามเรื่องการเว้นระยะห่าง บรรทัดของ VB ครับ

[jullathep]

คือผม วาง Label ติดๆ กัน 3 อัน เวลาแสดงผล อยากจะให้กำหนดช่องว่าง เอง ครับ โดยไม่ให้ Label ติดกัน ผมต้องลง Code ต่อ ว่าอย่างไรครับ ขอคำชี้แนะด้วยครับ

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
Label1.Caption = "Hello"
Label2.Caption = "World"
Label3.Caption = "Asia"
End If
End Sub

[jullathep]

ได้ละครับ พอดี ใช้วิธี บันทึกมาโคร ขยับ Label แล้ว Copy Code มาวาง

Code: Select all

Private Sub CommandButton1_Click()
Windows("SpaceFormat.xlsm").Activate
If TextBox1.Text <> "" Then
Label1.Caption = "Hello"
ActiveSheet.Shapes.Range(Array("Label2")).Select
ActiveSheet.Shapes("Label2").IncrementTop 8
Label2.Caption = "World"
ActiveSheet.Shapes.Range(Array("Label3")).Select
ActiveSheet.Shapes("Label3").IncrementTop 16
Label3.Caption = "Asia"
End If
End Sub

[jullathep]

มีคำถามเพิ่มเติมครับ ถ้าผมต้องการ ล็อก ไม่ให้ Label ขยับ ทุกครั้งที่กดตกลง ผมจจะต้องเขียน Code ต่อ ว่าอย่างไรครับ จาก Code ตั้งต้น
พอกดตกลง มันก็ขยับลงเรื่อยๆ เลยอยาก ล็อก เอาไว้ ขอบคุณครับ

Code: Select all

Private Sub CommandButton1_Click()
Windows("SpaceFormat.xlsm").Activate
If TextBox1.Text <> "" Then
Label1.Caption = "Hello"
ActiveSheet.Shapes.Range(Array("Label2")).Select
ActiveSheet.Shapes("Label2").IncrementTop 8
Label2.Caption = "World"
ActiveSheet.Shapes.Range(Array("Label3")).Select
ActiveSheet.Shapes("Label3").IncrementTop 16
Label3.Caption = "Asia"
End If
End Sub
[\code]

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

If TextBox1.Text <> "" Then
    Label1.Caption = "Hello"
    'ActiveSheet.Shapes.Range(Array("Label2")).Select
    'ActiveSheet.Shapes("Label2").IncrementTop 8
    Label2.Caption = "World"
    'ActiveSheet.Shapes.Range(Array("Label3")).Select
    'ActiveSheet.Shapes("Label3").IncrementTop 16
    Label3.Caption = "Asia"
End If