中西转换!!!VB

来源：百度知道 编辑：UC知道 时间：2024/06/06 06:38:34
不是要把把有的都转.就是月份转换
是这样....
例如 有TEXT1和TEXT2两个文本框.......
当我在TEXT1中输入1-12,在TEXT2中自动显示西班牙文的1-12月
1-12月的西文分别为: Enero Febrero Marzo Abril Mayo Junio Julio Agosto Septiembre Octubre Noviembre Diciembre

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim a(), i As Integer
i = Text1.Text
If i < 1 Or i > 12 Then
MsgBox "你输入的月份不对！"
Else
a = Array("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre ", "Diciembre")
Text2.Text = a(i - 1)
End If
End If
End Sub

Private Sub Text1_Change()

On Error Resume Next
Dim mm
i = Val(Text1) + 1
Text2.Text = "Err"
mm = Split("Enero Febrero Marzo Abril Mayo Junio Julio Agosto Septiembre Octubre Noviembre Diciembre")
Text2 = mm(i)

End Sub