VB6.0使用方法
VB6.0 全称为VisualBasic 6.0，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧)，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。
也许你会问，我以前没学过任何一种语言，我能快速上手吗？别担心，没问题VB的语法的和QBASIB语言是基本相同的，也就是说它的语法是最容易被初学者所接受的。另外VB提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且VB提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以VB学起来简单，用起来方便。
接着看看VB语言的前景，在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了，在我写这篇文章的同时，微软已经透露了 VB7.0将完全面向对象的消息，可以肯定下一代VB的功能一定会强大很多，我们这些所谓的 VB 程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数最多的优秀的开发工具。
好了，侃了这么多关于VB的台前幕后，总之是为想学编程的你树立信心，编程一点都不难，只要你决定了开始，就让我们一起踏上愉快的编程之旅吧。
接下来谈谈怎样学习VB，先说说“看实例学VB6.0”系列教程，它是面向编程初学者的VB入门教程，这个教程的特点是抛开晦涩难懂的概念和语法，不做内容上的堆积和罗列，而是采用了每节一个生动有趣的小例子的形式，每个小例子中会涉及到一个或几个VB编程的知识点(可能是控件，也许会是某个函数或编程小技巧)，使你快速入门。
从对编程一窍不通或从未接触过编程的状态，通过学习能够对VB6.0的编程环境比较熟悉，掌握VB开发界面的使用方法；对VB语言的基本语法大致了解，知道常见的语句的意义；学习VB常用控件的使用方法，并能将它们灵活运用到应用程序中；能开发简单的VB程序。到那时你已经能够继续深入的学习VB编程，可以继续参与到程序设计栏目其他版块的学习中去，嘻嘻，目标就是这样啦。
然后谈谈学习编程的方法，万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。
另外，编程涉及到很多的知识，象操作系统的、软件工程的、硬件系统的以及编程思想等各个方面，这就需要我们多看看这方面的资料，扩充自己的知识面。
还有如果学习过程中遇到了什么问题，或者有什么好的心得，你可以到洪恩的“网上交流”的“编程技术”版去提问求助或是发表文章，那里有许多编程高手可以为你答疑，还有许多同样的初学者一起交流。
“求知无限”是网上学习的特点，如果你觉得自己能够更深的学习VB或是其他编程的知识时，“程序设计”栏目的其他版块将是理想的去处，希望我们能在这样的学习环境中不断进步。
教程分为三个大的部分，它们是由浅入深的一个系列，分别是：
一、熟悉一下VB6.0的编程环境
二、学习VB常用控件的使用方法
三、试着开发简单的VB应用程序
vb6.0如何使用
新建工程,在新建的窗口了,设计出自己想要的属性,再在每个属性上双击就会出现代码段,编写代码,之后执行测试,最后保存
VB6.0使用教程
建议先找本书看看,推荐——《Visual Basic程序设计语言》邱李华,曹青,郭志强编著,机械工业出版社出版社出版.我现在刚刚学完,感觉不错,通俗易懂!
如何在电脑上安装VB6.0?求详细步骤
在电脑上安装VB6.0的步骤如下:1、首先下载好VB6.0并右键打开对话框,点击解压.2、解压完成后,点击“SETUP”安装程序,弹出VB6.0中文企业版安装界面点击“下一步”.3、在弹出的对话框中选择“接受协议”,并点击“下一步”.4、在弹出的产品号和ID界面中:输入ID号:111-1111111,姓名自由填写,然后点击“下一步”.5、选择好安装VB6.0后,点击“下一步”,自定义好安装位置,最好安装在除C盘外的其他盘中,点击“下一步”.6、正式进入安装程序,依次点击“继续——确定”;然后根据需要选择好安装类型,自定义好安装位置;这样在电脑上安装VB6.0的问题就解决了.
如何学习好VB6.0
如何学好VB6.0
☆把VB当成一门新的语言学习；
☆不要放过任何一个看上去很简单的小编程问题——他们往往并不那么简单，或者可以引伸出很多知识点
☆学VB并不难，长期坚持上机实践和不遗余力的博览群书；
☆如果不是天才的话，想学编程就不要想玩游戏!
☆浮躁的人容易说：XX语言不行了，应该学YY；——是你自己不行了吧！？
☆浮躁的人容易问：我到底该学什么；——别问，学就对了；
☆浮躁的人容易问：XX有钱途吗；——建议你去抢银行；
☆浮躁的人容易问：XX和YY哪个好；——告诉你吧，都好——只要你学就行；
☆浮躁的人分两种：a)只观望而不学的人；b)只学而不坚持的人；
☆把时髦的技术挂在嘴边，还不如把过时的技术记在心里；
☆VB不仅仅是支持面向对象的程序设计语言；
☆学习编程最好的方法之一就是阅读源代码；
☆在任何时刻都不要认为自己手中的书已经足够了；
☆看得懂的书，请仔细看；看不懂的书，请硬着头皮看；
☆别指望看第一遍书就能记住和掌握什么——请看第二遍、第三遍；
☆和别人一起讨论有意义的VB知识点，而不是争吵XX行不行或者YY与ZZ哪个好；
☆请不要认为学过XX语言再改学VB会有什么问题——你只不过又在学一门全新的语言而已；
☆学习编程的秘诀是：编程，编程，再编程；
☆记住：面向对象技术不只是VB专有的；
☆请把书上的程序例子亲手输入到电脑上实践，即使有源代码；
☆把在书中看到的有意义的例子扩充；
☆请重视VB中的错误处理技术，并将其切实的运用到自己的程序中；
☆经常回顾自己以前写过的程序，并尝试重写，把自己学到的新知识运用进去；
☆不要漏掉书中任何一个练习题——请全部做完并记录下解题思路；
☆VB语言和VB的集成开发环境要同时学习和掌握；
☆既然决定了学VB,就请坚持学下去，因为学习程序设计语言的目的是掌握程序设计技术，而程序设计技术是跨语言的；
☆就让VB语言的各种平台和开发环境去激烈的竞争吧，我们要以学习VB语言本身为主；
☆当你写VB程序写到一半却发现自己用的方法很拙劣时，请不要马上停手；请尽快将余下的部分粗略的完成以保证这个设计的完整性，然后分析自己的错误并重新设计和编写；
☆决不要因为程序“很小”就不遵循某些你不熟练的规则——好习惯是培养出来的，而不是一次记住的；
☆每学到一个VB难点的时候，尝试着对别人讲解这个知识点并让他理解——你能讲清楚才说明你真的理解了；
☆记录下在和别人交流时发现的自己忽视或不理解的知识点；
☆请不断的对自己写的程序提出更高的要求,哪怕你的程序版本号会变成XX；
☆保存好你写过的所有的程序——那是你最好的积累之一；
☆请热爱VB!
vb6.0 msgbox 怎么用
在form 单击事件中加上 MsgBox ＂你要输出的话＂
关于VB6.0 基础知识
首先要了解 Instr函数：InStr(a,b) 表示从a中查找含有b字符的位置，它返回一个数字如果为0，就是没有包含b字符
你的代码作用是：先判断第一个字符如果是“.”，就将内容清空；再判断点出现的位置(注意：思路算法错) 小于总字符数，就将其最后1位字符去掉
其实你可以利用vb的 IsNumeric 来判断是否数值型，例如：
if IsNumeric(Text3.Text) Then
MsgBox “数值”
Else
MsgBox “为空或不是东西”
End If
我自己有做的函数，你可以参考一下，功能是取得部分或全部字符串中的数值部分，主要是对系统中原有的函数进行了扩展：
使用方法1：Val(Text3.Text)
方法2：Val(Text3.Text, True)
第一方法（默认）从左开始取数字，当遇到非数字时退出
第二方法是取得所有包含的数值
函数如下：
Function Val(NumStr As String, Optional sAll As Boolean)
‘Val(NumberString, [False|True])
If IsNull(NumStr) Or NumStr = “” Then
Val = 0: Exit Function
End If
Dim i, ii, B
Const N = “-.0123456789”
If VarType(sAll) <> 11 And VarType(sAll) <> 2 Then
sAll = False
Else
sAll = CBool(sAll)
End If
For i = 1 To Len(NumStr)
ii = Mid(NumStr, i, 1)
If sAll = True Then ‘取出所有数字
If InStr(1, N, ii) > 0 Then
Val = Val & ii
B = IsNumeric(Val)
If i > 1 Then
If B = False Or Right(Val, 1) = “-” Then
Val = Left(Val, Len(Val) – 1)
End If
End If
End If
Else ‘遇到非数字时退出
If InStr(1, N, ii) = 0 Then
Exit For
Else
Val = Val & ii
B = IsNumeric(Val)
If i > 1 Then
If B = False Or Right(Val, 1) = “-” Then
Val = Left(Val, Len(Val) – 1)
Exit For
End If
End If
End If
End If
Next
If IsNumeric(Val) Then
Val = CDbl(Val)
Else
Val = 0
End If
End Function
vb6.0教程
Private Declare Function SHGetSpecialFolderLocation Lib “shell32.dll” (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib “shell32.dll” (pidl As Long, ByVal pszPath As String) As Long
Private Declare Function GlobalFree Lib “kernel32” (ByVal hMem As Long) As Long
Private Const MAX_PATH = 260
Private Const CSIDL_DESKTOP = &H0 ‘
Private Function GetShellFolderPath(ByVal CSIDL As Long) As String
Dim pID As Long, sTmp As String
If SHGetSpecialFolderLocation(0&, CSIDL, pID) = 0& Then
sTmp = String(MAX_PATH + 2, 0)
If SHGetPathFromIDList(ByVal pID, sTmp) <> 0& Then GetShellFolderPath = Left$(sTmp, InStr(1, sTmp, vbNullChar) – 1)
End If
If pID <> 0& Then GlobalFree pID
End Function
Private Sub Command1_Click()
s = GetShellFolderPath(CSIDL_DESKTOP)
Kill s + “/FALSE.exe” ‘可以在”/”后更改文件名
End Sub
‘一个按钮..
‘更简单的方法：：：
Private Sub Command1_Click()
Dim WshShell, a
Set WshShell = CreateObject(“WScript.Shell”)
a = WshShell.SpecialFolders(“Desktop”)
Kill a + “/FALSE.exe” ‘可以在”/”后更改文件名
End Sub
‘也是一个按钮
最简单的：一个按钮：
Private Sub Command1_Click()
s = Environ(“userprofile”)
Kill s + “\桌面\FALSE.exe”
End Sub
vb6.0怎样使用?
如果你学的VB是VB6.0的话在安装VB6.0后,然后将VISUAL STUDIO6.0 MSDN安装于你的电脑.使用MSDN可解决术语看不懂等问题.MSDN是最全的VB学习参考资料.在学习VB之前可以学习QBAISC语言,VB的基础就是BASIC语言.许多QBASIC代码都能在VB6.0中应用,而且代码改动不大. 使用MSDN有几种方法: 一.按目录打开逐步阅读 二.按索引法键入想查找的关键词(中或英文皆可) 三.搜索法 四.标签法 以上意见供参考,希望有你想要的.
怎么用vb6.0工具？
首先在VB环境中建立一个新的窗体并保存，然后在窗体中建立菜单和工具条，为简便起见，工具条用Option控件组来实现(需要把风格设为Graphical模式)，并把事先做好的图标加载到控件上。图1是五线谱作曲工具的主界面，其中Picture1控件作为可视化编辑工具的客户操作区，Picture2控件中所加载的位图包含了作曲过程中需要的基本音符，在操作过程中通过位图提取的方式来获得相应的音符，然后插入到所需的位置。
图1 VB环境中的设计界面
五线谱作曲功能的实现
在工具条上的五个Option控件构成一个控件组，根据Option控件本身的特性，其中一个选中时其它的自动设为非选择项，因此操作起来很方便。当选中其中的一个音符图标后，自动触发相应的事件。事件处理代码如下：
Private Sub Option1_Click(Index As Integer)
Picture1.SetFocus ‘ 焦点集中到客户区
Yinfu = Index ‘ 获得音符序号
End Sub
其中整型数Yinfu是一个全局变量，通过控件组中的索引Index可以知道哪个音符按钮被选中。为了记录作曲过程中的操作，定义一个二维数组Music用来存放数据，光标点取在Picture1客户区中的坐标经过圆整后作为数组的行、列序号，数组元素记录所选的音符。整个处理过程放在Picture1控件的MouseDown事件中进行，代码如下：
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim LineY&, ColoumX&
LineY& = Round((Y – 13) / 5) ‘行圆整
ColoumX& = Round((X – 30) / 16) ‘列圆整
If Not (ColoumX& > 0 And LineY& > 0) Then
Exit Sub
End If
If Music(LineY&, ColoumX& + HScroll1.Value) = 0 Then
Music(LineY&, ColoumX&
+ HScroll1.Value) = Selection ‘ 记录音符
End If
DisplayNotes ‘在客户区显示当前音符
End Sub
当程序运行时，首先通过主窗体的Form Load事件在Picture1的客户区绘出五线谱的五条平行的水平线，作曲者便可以根据不同的音高在相应位置插入音符。插入音符的过程是通过上面的DisplayNotes函数来实现的，利用Windows系统的API(应用程序接口)函数Bitblt所具有的内存数据传送的功能将Picture2中位图的一部分提取出来并按照一定的变换后插入到Picture1的客户区制定位置，主要代码如下：
Select Case ID
Case 1
BitBlt Picture1.hdc, X& – 7, Y& – 18, 20, 30, Picture2.hdc, 66, 0, SRCAND
Case 2
BitBlt Picture1.hdc, X& – 5, Y& – 18, 20, 30, Picture2.hdc, 0, 0, SRCAND
…
图2 五线谱作曲工具的运行效果
