vb 与qq程序

SetFocus 的api你肯定写错了，是SetFocus，而不是 setfocus，记住Api是必须区分大小写的。

还有，SetFocus这个函数名在vb里是已经有的，必须指定其他的函数名，如下

Private Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

请用SetFocusAPI替换掉所有的setfocus

1、在桌面上，鼠标左键双击程序，打开VB编程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出两标签，用来写文字的说明。

2、接着，根据窗口的大小，感觉文字小了，可以在Label属性窗口上，修改Font属性值，单击其选择按钮就可以更改字体的大小了。

3、在d出的字体对话框中，选择四号字的大小，单击【确定】。

4、接着，在程序左边工具栏上，单击【TextBox】按钮，在Form1窗口上绘制出两文本框，并在TextBox属性面板上，修改Text的值，将其清空。

5、然后，在程序左边工具栏上，单击【CommandButton】按钮，在Form1窗口上绘制出两命令按钮在其属性面板上，将Caption的值改为确定，另一个改为取消。

6、最后，在程序左边工具栏上，单击【Image】按钮，在Form1窗口上绘制出两图框，并修改其两处属性值。

7、最后点击运行，如下图所示就完成了。

---