VB6
ijwsoft
.net, BI, java, php etc;
Sql server, Oracle, Mysql, Sqlite, Access etc;
展开
-
TreeView节点的增,删,排序
VB中Treeview 控件的使用方法 首先在 VB 中建立一个新工程,单击“工程/部件”,在控件列表中选中“ Microsoft Windows command controls6.0(sp4)”,按下“确定”按钮返回主界面,在左侧控件窗体中选中 Treeview 控件置于窗体上,再放置一个 Imagelist 控件、两个 Label 控件、两个Textbox 控件、六个 commandbu原创 2009-01-02 23:53:00 · 3357 阅读 · 0 评论 -
vb6连sqlite
vb6连sqlite: vb6.0操作SQLite数据库 http://lanhy2000.blog.163.com/blog/static/4367860820081119727474/ 在vb6中使用sqlite http://hi.baidu.com/jt09/blog/item/35f557ae27245cc77dd92aae.html原创 2012-02-28 15:54:12 · 7243 阅读 · 2 评论 -
vb6: dim rs As New ADODB.Recordset 用户定义类型未定义
你没有启用ADODB的引用,或者加载ADODC控件,在“工程|引用”中添加“Microsoft ActiveX Data Object [版本号,比如2.8等] Library”就可以了[用户定义类型未定义]原创 2012-01-05 11:44:14 · 14395 阅读 · 1 评论 -
VB6相关资源
也许,又要捡起VB6了,做维护!复习一下! 1,基础 常用快捷键: ------------------------------------------------------------------------------------F3:查找下一个F4:查看对象的属性F5:开始运行、调试F8:单步调试F7:进入代码模式Home:定位到当前代码行的行首原创 2012-01-04 09:30:12 · 1305 阅读 · 0 评论 -
VB6浮雕效果源代码
Private Sub Command1_Click() Dim r2, g2, b2 As Integer Dim r1, g1, b1 As Integer Dim c1 As Long Dim c2 As Long Dim x0 As Integer Dim y0 As Integer Screen.MousePointer = 11 m原创 2008-12-25 10:18:00 · 1742 阅读 · 2 评论 -
简单IE浏览器的VB实现
五个按钮控件数组,一个WebBrowser控件Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 停止按钮trip: WebBrowser1.Stop Case 1 刷新按钮 WebBrowser1.Refresh Ca原创 2008-12-24 13:16:00 · 1315 阅读 · 1 评论 -
进制数转换器的VB算法实现(2/8/10/16进制数可以相互转换)
在VB6中新建一个工程,当前窗体默认为form1,添加一个框架控件frame、几个文本框控件text、几个标签控件label、两个timer计时器、三个按钮控件、添加一个窗体form2、一个模块module1、几个菜单项。然后将form1上的各个控件调至适当位置,并且更改它们的标题属性。注意:那四个文本框为文本框控件数组,分别为text1(0),text1(1),text1(2),text1(3)原创 2008-12-15 21:08:00 · 12128 阅读 · 7 评论 -
给定"A","B","C","D",编程打印A(4,4)=24和A(4,2)=12所有的排列方式
Option ExplicitDim ss As String 最终生成的字符串Dim tt As Integer 生成结果的个数Private Sub Command1_Click()Dim i As Integer, j As Integer, m As Integer, n As Integer Cls 清屏 tt = 0 Pr原创 2008-12-16 19:04:00 · 1812 阅读 · 4 评论 -
2、8、10、16进制数相互转换的12种算法
Option Explicit2进制转换为10制数Public Function BinToDec(bin As String) As Long Dim i As Long For i = 1 To Len(bin) BinToDec = BinToDec * 2 + Val(Mid(bin, i, 1)) NextEnd Function10进制转换为2制数原创 2008-12-15 21:16:00 · 7763 阅读 · 0 评论 -
VB6的qbcolor函数
QBColor函数返回索引返回一个 Long,用来表示所对应颜色值的 RGB 颜色码。语法QBColor(color)必要的 color 参数是一个界于 0 到 15 的整型。设置值color 参数有以下这些设置:值颜色值颜色0黑色8灰色1兰色9亮兰色2绿色10亮绿色转载 2008-11-23 19:47:00 · 3088 阅读 · 1 评论 -
小型记事本的VB实现
上面是程序运行的界面!(程序运行界面已上传到相册的VB6栏目)以下就是VB6的源代码: 依次添加5个按钮控件,一个timer控件和一个microsoft common dialog control 6.0控件 Private Sub Command1_Click() 输入文字 Dim n% On Error Resume Next原创 2008-11-22 20:04:00 · 1183 阅读 · 0 评论 -
画图工具的VB实现
‘用户可以随意的用mouse画图,也可以引入图片,然后进行简单的处理,主要是添加两个picture控件 和几个按钮 (程序运行界面已上传到相册VB6中)Dim x1!, v1!, x2!, v2!, a1!Private Sub Command1_Click() 清屏的按钮Picture2.Cls 清屏End SubPri原创 2008-11-23 09:46:00 · 6566 阅读 · 2 评论 -
简单IE浏览器的VB实现
’添加一个webbrowse控件和几个按钮,少量的代码,就可以实现简单的IE浏览器 (程序运行界面已上传至相册VB6) Private Sub Command1_Click(Index As Integer) Select Case Index Case 0trip: WebBrowser1.Stop原创 2008-11-23 07:43:00 · 1132 阅读 · 0 评论 -
用三维饼图分析各阶段人数比例
‘设计一程序,用三维饼图表达考试成绩分别在 优秀、良好、中等、及格和不及格 5个区间的学生人数比例关系(程序运行界面已上传至相册VB6)Option Base 1Private Sub Command1_Click()Dim map(5) As Single, total!, i%, j%For i = 1 To 5 map(i) = Val(Text1(i - 1))原创 2008-11-23 13:57:00 · 3127 阅读 · 0 评论 -
vb中line的用法
vb中line的用法绘制方框可使用 Line 方法绘制并填充方框。下列示例画出一个方框,其左上角为 (500, 500),每边长为 1,000 :Line (500, 500)–Step(1000, 0)Line -Step(0, 1000)Line -Step(–1000, 0)Line -Step(0, –1000)然而,Visual Basic 提供了一个更简单的画方转载 2008-11-23 12:57:00 · 15359 阅读 · 0 评论 -
VB中CommonDialog示例
VB中CommonDialog示例 从project->components,选中microsoft common dialog control 6.0,点击“确定”,会有Commondialog按钮出现在控件栏中,然后拖一个到窗体,用其默认名Commondialog1。在本程序中实现如下功能:打开Word/Text/其它文件到Text1控件,Commondialog1.action=1/原创 2008-11-21 23:39:00 · 15556 阅读 · 2 评论 -
几种排序算法的思想
一、冒泡排序已知一组无序数据a[1]、a[2]、……a[n],需将其按升序排列。首先比较a[1]与a[2]的值,若a[1]大于a[2]则交换两者的值,否则不变。再比较a[2]与a[3]的值,若a[2]大于a[3]则交换两者的值,否则不变。再比较a[3]与a[4],依此类推,最后比较a[n-1]与a[n]的值。这样处理一轮后,a[n]的值一定是这组数据中最大的。再对a[1]~a[n-1]以相同方转载 2009-01-04 00:24:00 · 15055 阅读 · 4 评论 -
腾讯通RTX 客户端发送即时消息 小结(C#,VB6版)
在客户端,一个rtx用户给另一个rtx用户发送消息! 我的解决方案:在rtx服务端部署一个 wcf服务 或 webservice 服务,然后程序在客户端调用服务就行。 1,C#版 (服务端需要4个DLL) Interop.RTXCAPILib.dll Interop.RTXClient.dll Interop.RTXSAPILib.dll原创 2012-02-20 15:23:10 · 8565 阅读 · 4 评论