VB初学者...小问题..怎么打一个字 自动出现剩下的几个字

VB初学者的简单问题~

你要输入Form1然后再加个小数点，就会出来Form1的各种属性、方法、函数选项

'添加一个按钮（commandbutton）和一个标签(label)控件
'代码，这里间隔3秒后消失

Dim ph As Long

Private Declare Function timeGetTime Lib "winmm.dll" () As Long


Private Sub Command1_Click()

Command1.Enabled = False
ph = ph + 1
Label1.Caption = ph & "号"
Savetime = timeGetTime
While timeGetTime < Savetime + 3000
DoEvents
Wend
Label1.Caption = ""
Command1.Enabled = True
End Sub

Private Sub Form_Load()

Label1.Caption = ""
ph = 0
End Sub

我是打五笔的。。。120字/分钟。。。我从没背过字根。。。因为开始上计算机课的时候我背过。。。可一背那东西我头痛。。。就是到现在我也背不下来完全的字根。。。

不过当时我唯一采用的方法就是：上网聊天用五笔。。。不会也用。。。这个方法真的很快。。。

其次在家专门练打字。。。不过是打杂志或者我喜欢的文字。。。这样比较有兴趣。。。如果你肯用心。。。其实打字到最后难打的字多了。。。都是靠猜字的。。。

没有诀窍。。。只有练习。。。必须保证一天有三个小时不停的打。。。无论打什么都行。。。

你首先必须要对键位熟悉。。。你的哪根指头管理哪部分键盘。。。如果键盘上的键位你不熟悉。。。我想你不用练五笔了。。。练拼音吧。。。因为拼音人人都会啊。。。

其次不用特殊背字根。。。你只要记住大部分的一极简码和二级简码就行。。。记住大部分的区域。。。

比如键盘上：
A、S、D、F、G 是 横 区，
H、J、K、L、M 是 竖 区，
T、R、E、W、Q 是 撇 区，
Y、U、I、O、P 是 捺 区，
X、C、V、B、N 是 折 区。

你要记住这五个大概区域。。。比如说你随便看一个字。。。第一笔是什么你就到哪个区域找这个字。。。以后的部首是什么你就到哪个区去找。。。久而久之就熟悉了。。。

不过有一件事情我很不明白。。。为什么要练五笔呢？？？我开始根本不知道自己到底要用什么。。。因为五笔是我们中学时计算机必考的。。。所以我才练。。。我看现在很多打拼音的都比五笔快。。。

五笔不过是一种输入法而已。。。与其他输入法是一样的。。。你喜欢哪种就要用哪种。。。千万不要听别人说五笔快你就练。。。如果你不赶兴趣也无用啊。。。


界面上放一个文本框（自己输入用的），放一个列表框（显示候选项用的）。位置程序会自动调整。然后使用下面的代码就可以了。

Const 自己的词 = "大人,大海,大哥,小孩,小学"
Dim 候选

Private Sub Form_Load()
Text1 = ""
候选 = Split(自己的词, ",")
List1.Top = Text1.Top + Text1.Height
List1.Left = Text1.Left
List1.Width = Text1.Width
End Sub

Private Sub Text1_Change()
If Text1 = "" Then
List1.Visible = False
Else
List1.Visible = True
List1.Clear
For i = 0 To UBound(候选)
If Text1 = Left(候选(i), Len(Text1)) Then List1.AddItem 候选(i)
Next i
End If
End Sub

如果还有其他问题，你可以直接联系我。

老兄，你说的是写一个程序吧。不过我是不会，只是看你没写清楚，楼上有人误解为五笔打字了。我也是在做任务。路过.....

---

VB初学者...小问题..怎么打一个字 自动出现剩下的几个字视频