- 
                        VB6 制作简易谱曲键盘 键盘演奏音乐
                        
                          VB6 制作简易谱曲键盘,用键盘演奏音乐,可发出7个基本音符声音,生成 1 到 7 之间的随机数值,每个键值代表一个音符,如窗体所示,每个数字就代表一个声音,这期间要用到定时器。
  在如图所示的运行效果中,单击数字后,单击演奏,可听到演奏效果。                         
                            - 2022-08-04 05:21:26下载
- 积分:1
 
- 
                        visual studio VB 学生信息管理系统 源码
                        
                          用visual studio VB语言编写的学生信息管理系统 WINFORM 数据库采用的是ORACLE                          
                            - 2022-02-24 12:49:02下载
- 积分:1
 
- 
                        VB 6.0 AscW将汉字转换为Unicode字符代码
                        
                          本源码演示VB 6.0 如何将汉字转换为Unicode字符代码,在窗口中输入汉字,单击按钮,即可将汉字转换为Unicode字符,其实这个实现起来也比较简单,用VB内置函数AscW即可实现,代码的编写可参考如下:
  Private Sub Command1_Click()
      Text2.Text = AscW(Text1)
  End Sub
  Private Sub Command2_Click()
      Unload Me
  End Sub                         
                            - 2022-08-09 07:08:37下载
- 积分:1
 
- 
                        VB6.0 顺序文件写操作的操作演示
                        
                          VB6.0 顺序文件写操作的操作演示,三种方法写数据,包括了完整的源码项目下载,是学习VB文件读写操作的好范例。
  这三种方法是:
  把文件的内容一次性的写入
  把字符一个一个写入
  依次写入顺序文件                         
                            - 2022-01-26 17:24:14下载
- 积分:1
 
- 
                        VB.NET 轻松提速打字游戏源代码
                        
                          VB.NET 轻松提速打字游戏源代码,同时调用了MID背景音乐文件,边打字边听音乐。程序功能:打字时间设置、倒计时、打字难易程序设置、背景音乐和文字设置、游戏速度设置、窗口背景颜色设置、音乐开关设置等,其实这是一个打字小游戏,从窗口顶部会随机掉下来字母,敲击键盘上对应的字母键即可消除该字符,算打字成功。本趣味打字帮助大家面对键盘只会‘一指弹’炼成‘弹指神功’的炉火纯清的地步。
  在编写时保证了窗体大小发生变化时保证窗体下面几个界面元素不会混乱,同时也调用了Windows编程库,比如Windows MediaPlayer的相关组件AxInterop.WMPLib.dll/Interop.WMPLib.dll,用于播放背景声音。程序中的随机生成器,即每次产生的随机种子不一样,很有用,用来生成随机掉下来的字母。                         
                            - 2022-04-12 19:44:43下载
- 积分: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
 
- 
                        支持代理的VB FTP服务器程序
                        
                          一个FTP程序的例子,不过这个是支持代理服务器的,用VB编写FTP的例子,支持代理服务器。这个程序同样来自国外VB网站,代码中很多注释,不过是英文的。这个FTP程序的样子似乎还需要完善,和当下流行的、CuteFTP、FlashFXP都有很大的区别,甚至说有点简陋,不过这个代码主查面向学习的,英文好的可下载本源码学习。                         
                            - 2022-03-06 02:53:34下载
- 积分:1
 
- 
                        VB6 给窗体添加滚动条
                        
                          VB6 给窗体添加滚动条,调整水平滚动条的一些属性。当窗体的大小发生变化时发生,垂直滚动条与窗体相对位置不变,滚动条的大小随着窗体大小的改变而改变,命令按钮作水平滚动条与垂直滚动条交接处的填充。
  因代码注释较多,详细代码情况请您下载本源码包,自行解压查看。                         
                            - 2023-02-22 07:50:04下载
- 积分:1
 
- 
                        vb.net 捕获键盘按键和鼠标XY坐标位置
                        
                          vb捕获键盘按键和鼠标坐标位置,监测鼠标的位置和鼠标按键的名称,如窗体所示,随意移动鼠标,即可适时显示出鼠标坐标,若敲击键盘,则会获取到哪一个键被按下,两个功能的代码写在按钮事件中,获取鼠标XY坐标位置:
  Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString()
  获取键盘按下:
  Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()                         
                            - 2023-06-22 15:00:03下载
- 积分:1
 
- 
                        VB 演示如何使用WeekdayName获取星期名称
                        
                          VB 演示如何获取星期名称,这里获取星期几是使用了VB内置的WeekdayName函数,将获取到的日期和星期几直接显示在Text控件中,下面是这个函数的具体用法:
  Private Sub Command1_Click()
  Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
  End Sub
  Private Sub Form_Load()
  Text1.Text = Date
  Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
  End Sub
  在VB6.0 IDE环境中编译此源代码,生成如演示截图所示的运行效果。                         
                            - 2022-11-30 01:55:03下载
- 积分:1