# Re: Sorry ！如果您有解的话请告诉我！

Posted by Knight on March 06, 1999 at 10:41:08:

In Reply to: Sorry ！如果您有解的话请告诉我！ posted by 王空空 on March 03, 1999 at 17:49:02:

: Sorry:这个问题，我无法回答！

: 如果谁回答您这个问题，方便的话，请您mail一份给我，最好有程式码。谢谢您，也向您说声抱歉！

need 3 picture box and 1 text box

Option Explicit
Dim text

Private Sub Form_Activate()
Picture1.Top = 480
Picture1.Left = 780
Picture1.Height = 912
Picture1.Width = 792
Picture2.Top = 480
Picture2.Left = 1560
Picture2.Height = 912
Picture2.Width = 792
Picture3.Top = 480
Picture3.Left = 2340
Picture3.Height = 912
Picture3.Width = 792
Text1.Top = 1440
Text1.Left = 780
Text1.Height = 264
Text1.Width = 2412
Text1.MaxLength = 24
Text1.FontName = "细明体"
Picture1.FontName = "细明体"
Picture2.FontName = "细明体"
Picture3.FontName = "细明体"

End Sub

Private Sub Text1_Change()
text = Text1
Picture1.Cls
Picture1.Print Mid(text, 1, 8)
Picture2.Cls
Picture2.Print Mid(text, 9, 8)
Picture3.Cls
Picture3.Print Mid(text, 17, 8)
End Sub

请测测看是否是你所要的方式?

Follow Ups: