อยากทราบวิธี copy format ของ TextBox ไปยังอีก TextBox หนึ่ง
Posted: Tue Aug 09, 2016 5:49 pm
Private Sub Formating_Textbox()
TextBox1.Font.Size = 12
TextBox1.ForeColor = RGB(127, 187, 199)
TextBox1.Bold = True
TextBox2.Font.Size = TextBox1.Font.Size
TextBox2.ForeColor = TextBox1.ForeColor
TextBox2.Bold = True
TextBox3.Font.Size = TextBox1.Font.Size
TextBox3.ForeColor = TextBox1.ForeColor
TextBox3.Bold = True
TextBox4.Font.Size = TextBox1.Font.Size
TextBox4.ForeColor = TextBox1.ForeColor
TextBox4.Bold = True
End Sub
เนื่องจากเตรียมจะทำอีกหลาย TextBox และจะกำหนดลักษณะต่างๆเพิ่มเข้าไปใน TextBox อีก อยากทราบวิธี copy fotmat ของ TextBox ที่เป็น Original ไปใส่ TextBox ตัวอื่นๆ เลย ไม่ต้องมานั่งเขียนทีละ properties น่ะครับ
TextBox1.Font.Size = 12
TextBox1.ForeColor = RGB(127, 187, 199)
TextBox1.Bold = True
TextBox2.Font.Size = TextBox1.Font.Size
TextBox2.ForeColor = TextBox1.ForeColor
TextBox2.Bold = True
TextBox3.Font.Size = TextBox1.Font.Size
TextBox3.ForeColor = TextBox1.ForeColor
TextBox3.Bold = True
TextBox4.Font.Size = TextBox1.Font.Size
TextBox4.ForeColor = TextBox1.ForeColor
TextBox4.Bold = True
End Sub
เนื่องจากเตรียมจะทำอีกหลาย TextBox และจะกำหนดลักษณะต่างๆเพิ่มเข้าไปใน TextBox อีก อยากทราบวิธี copy fotmat ของ TextBox ที่เป็น Original ไปใส่ TextBox ตัวอื่นๆ เลย ไม่ต้องมานั่งเขียนทีละ properties น่ะครับ