Question

VB6.0 怎样在text输入数字label上会出来相应的文字

我想制作一个简易的背单词软件，我想在text上面输入日期（只显示日也就是数字），然后点背单词按钮在label上面显示今天要背的单词。我弄得是在背单词按钮上双击输入label1.caption=text1.text=30(今天是30日)=apple（这个是要背的单词），然后在text上输入30，可是label上面却显示ture。求大神帮我解答啊。

Answer 1

Private Sub Text1_Change()
Command1.Caption = Text1
End Sub

Private Sub Command1_Click()
Label1 = "apple"
End Sub