汉字转拼音第一个字母
发布网友
共1个回答
热心网友
灞曞紑鍏ㄩ儴Private Sub Form_Load() Text1.MaxLength = 2 Text1.Text = "" Text2.Text = "" Text2.Locked = True End Sub Private Sub Text1_Change() Text1.Text = Right(Text1.Text, 1) Text1.SelStart = 1 Text2.Text = getHzPy(Text1.Text) End Sub
