- 
                        VB 为菜单添加分割线
                        
                          VB6为菜单制作添加分割线,在菜单项与菜单项之间显示一个分隔线,这个在Windows经典风格的窗口中,十分常见,像一个水平线那样,把菜单分成多个部分,这个水平线带有阴影效果,视觉效果更立体。
  本窗口中的菜单,是一个企业综合管理系统的主界面面板,那些菜单都是测试用的,你可以看一下菜单中的分隔线是如何嵌入到菜单中的。                         
                            - 2022-09-22 23:30:03下载
- 积分:1
 
- 
                        VB 只允许输入特殊字符
                        
                          VB 只允许输入特殊字符,这只是一个普通的用户查询窗口,字段名称、运算符、关 键 字,然后对其进行查询,因为要向cbofields中添加规范化数据,所在再输入时只能输入“>”、“                         
                            - 2022-03-19 10:07:52下载
- 积分:1
 
- 
                        VB6.0 使用ADO对象访问数据库
                        
                          VB6.0 使用ADO对象访问数据库,这个例子其实很简单,就是基本的VB连接数据库、读取数据库内容,然后浏览一条一条的数据,最后关闭数据库,面向VB编程开发新手,有兴趣下载整个源码,在代码中都有详细的注释,因此很适合学习一些数据库操作的基础知识,源码运行截图如下:                         
                            - 2022-08-22 22:55:07下载
- 积分:1
 
- 
                        VB 将小写数字金额格式化为大写金额
                        
                          VB 将小写数字金额格式化为大写金额,这一个相比其它的金额数字转换,是自动转换,用户输入完小写数字金额后,程序将自动把小写数字变为大写,不过奇怪的是,在代码中并没有发现转换功能写在哪里,看到有数据库,莫非大写字符都存储于数据库吗?本例最终的运行效果如下图所示,用户在金额(大写)处输入小写的数字,可以输入小数点,然后单击其它空白处,程序会自动将小写金额转换成大写状态。                         
                            - 2022-07-04 15:26:33下载
- 积分:1
 
- 
                        VB net 模拟考试系统 SQLSERVER版
                        
                          VB net 模拟考试系统,本考试时间为30分钟,系统会进行倒计时。你必须正确输入你所在班级、姓名和学号,交卷后不能再考,即时间未到不要急于点""交卷""!点击""确定""进入考试系统。本考试系统的窗口只允许打开一个,程序会判断窗体是否已经打开,如果已经打开,则不需要重复打开,只是显示。
  程序正常运行需要SQL数据库,请在测试前附加并连接好。                         
                            - 2022-02-07 21:46:47下载
- 积分:1
 
- 
                        VB制作可移动按钮位置的Toolbar工具栏
                        
                          VB制作可移动按钮位置的工具栏,这个窗口中的Toolbar允许用户自己调整位置,可以拖动至指定位置,记得word中的工具栏就是这样,当你改变默认的工具栏布局时,程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗?")弹出确认信息。另外,本范例也可看作是一个在VB窗口中制作图标菜单的好范例,如示例图所示的效果。                         
                            - 2022-11-01 12:50:03下载
- 积分:1
 
- 
                        Vb.NET 贪吃蛇游戏
                        
                          游戏说明:
  1、控制键
     “回车键”-----新游戏或终止游戏
      “5”(数字键区的)----暂停或恢复
      方向控制键(数字键区的)
            “8、2、4、6”----对应控制“上、下、左、右”移动
             “1”-----“左下”移动
             “3”-----“右下”移动
             “7”-----“左上”移动
             “9”-----“右下”移动
  2、地图
     蓝色方块----食物(吃到食物后,蛇身长度增加一节)
     红色方块----炸弹(吃到炸弹,所得分数会减去当前级别数的2倍)
             地图上一次出现2个食物和1个炸弹,被蛇吃掉后会随机位置补充
     灰色方块----蛇头
     绿色方块----蛇身
     暗海洋绿方块----奖品
             当玩家吃到的食物或者炸弹达到5个时就会随机出现一次奖品,奖品
             上的数字表示吃到奖品后会增加的分数。每个奖品的初始分数是20--50
             之间的随机数,当奖品出现后就会开始不断的减少,所以玩家要尽快吃
             到才能增加到更多的分数。
  3、计分方法
     每吃到一个食物,增加的分数等于当前级别的数值;
     每吃到一个炸弹,扣掉的分数等于当前级别数值的2倍;
     玩家的起始分数等于当前的级别数值的2倍加1
         例如 等级为3,则玩家起始分数是7分;每吃到一个食物加3分;
         每吃到一个炸弹减6分
  4、游戏结束
     当总分                         
                            - 2022-03-02 23:06:57下载
- 积分:1
 
- 
                        VB6.0 使用列表播放midi等媒体文件
                        
                          VB6.0 使用列表播放midi等媒体文件,代码中添加了注释,了解VB如何操作MIDI文件进行播放,核心是调用了msdxm.ocx文件,如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.                         
                            - 2022-03-23 18:50:41下载
- 积分:1
 
- 
                        vb 6.0 排队叫号系统
                        
                          vb 排队叫号系统源代码,Cobeyond排队系统,程序分为了中心控制端、CyMobile管理系统、系统通讯端口设置、系统数据库设置、最大终端客户数设置、检查服务器名和端口号等众多子程序。本排队叫号系统可广泛应用于银行大厅排队叫号、便民服务大厅排队叫号等公共服务场所,系统涉及硬件、数据库及网络各方面的编程知识,是一套比较综合的VB管理系统。其中服务人员子程序打开后的界面如截图所示,源码包中还包括了排队叫号系统设计的流程图、网络拓扑结构图等编程资料,请下载源码包查看详情。                         
                            - 2022-02-21 04:44:48下载
- 积分:1
 
- 
                        VB 6.0 将数组中的数据利用图表分析
                        
                          VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:
  Private Sub Form_Load()
  Dim i
  i = Array(1, 2, 3, 4, 5, 6, 7)
  Dim j
  For j = 0 To UBound(i)
      With MSChart1
          .RowCount = UBound(i) + 1
          .Row = j + 1
          .ColumnCount = 1
          .Data = i(j)
          .RowLabel = i(j)
      End With
  Next j
  End Sub                         
                            - 2022-01-25 18:47:19下载
- 积分:1