Private Sub Text1_Change()
Label1.AutoSize = True
Label1 = Text1
Text1.Width = Label1.Width
End Sub
网上的,写的很巧妙,这人真的太有才了
Private Sub Text1_Change()
Label1.AutoSize = True
Label1 = Text1
Text1.Width = Label1.Width
End Sub
网上的,写的很巧妙,这人真的太有才了
转载于:https://www.cnblogs.com/IRIS-TK1/archive/2012/04/21/2461381.html