pic.ScaleMode = 3
txt.Appearance = 0
txt.BorderStyle = 0
pic.AutoRedraw = True
Dim a, b, c, d As Integer
a = txt.Top + txt.Height '+ 1
b = txt.Left - 1
c = txt.Left + txt.Width '+ 1
d = txt.Top - 1
pic.DrawWidth = 1
pic.Line (b, a)-(c, a), RGB(127, 157, 185)
pic.Line (c, a)-(c, d), RGB(127, 157, 185)
pic.Line (c, d)-(b, d), RGB(127, 157, 185)
pic.Line (b, d)-(b, a), RGB(127, 157, 185)
If State = Normal Then
txt.BackColor = vbWhite
txt.Enabled = True
txt.Locked = False
ElseIf State = Disable Then
txt.Enabled = False
txt.BackColor = RGB(235, 235, 228)
txt.ForeColor = RGB(161, 161, 146)
ElseIf State = ReadOnly Then
txt.Enabled = True
txt.Locked = True
End If
End Function
窗体内放一个picture box,在这个pic里面再放一个textbox
窗体内代码:
Option Explicit
Private Sub Form_Load()
xptxt Text1, Picture1, Normal
End Sub