当前位置：程序开发首页 >> Visual Basic >>
-
[2008-03-15] 一个简单的MP3播放器
利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改，做一个100KB大小的MP3播放器轻而易举 启动VB程序，在窗体上放置6个命令按钮，三个标签，... -
[2008-03-15] Visual Basic 安装程序的制作!!
Visual Basic 安装程序制作 安装程序制作是做项目必不可少的一道工序，网上的安装软件很多，可以用五花八门来开形容了~~~~ 在此笔者介绍一个最简单的安装方法，就是用ＶＢ自带的打包程序进行打包，虽然比较普... -
[2008-03-15] 对《VB程序实现WindowsXP效果的界面》一文的补遗
在看完《VB程序实现WindowsXP效果的界面》一文后，感觉非常好，用VB也能做出XP风格的界面。 但是有一个可能让大家都觉得不太舒服或者说很累赘的地方。就是在《VB程序实现WindowsXP效果的界面》一文的具体实现方法... -
[2008-03-15] 透明位图
´以下在form 需二个PictureBox，一个Image Control, 一个Command Box vate Sub Command1_Click() Dim dx As Long, dy As Long Call GetInvertMaskPic(Picture1, Image1, RGB(255, 255, 255)) ´注释：... -
[2008-03-15] VB程序实现WindowsXP效果的界面!!
虽然WindowsXP的界面非常华丽。但是令人遗憾的是，我们用VB写的程序除了菜单和窗口的外观是XP风格外，其他控件还是一如既往的是普通风格。我想，有的程序在XP下有XP的风格，VB也一定有办法实现XP的风格。后来笔者... -
[2008-03-15] 平铺与拉伸MDI窗口的背景图 ~!~
Microsoft Visual Basic 的MDI窗口虽然可以通过窗口的PICTURE属性设置窗口的背景图，使程序美化了不少。但是图片加载之后当窗口在不同的分辨率下，会出现缺口的现象，比如在800*600下设计的图片，到了1024*768下... -
[2008-03-15] VB打造超酷个性化菜单（六）
VB打造超酷个性化菜单（六） （接上篇） ´ 拦截菜单消息 (frmMenu 窗口入口函数) Function MenuWndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Se... -
[2008-03-15] VB打造超酷个性化菜单（五）
VB打造超酷个性化菜单（五） （接上篇） 现在到了最关键，最精彩，也是最复杂的部分了。我们最关心的就是怎样“画”菜单，怎样处理菜单事件，在MenuWndProc这个处理消息的函数里，我们要处理如下消息：WM_COMMAN... -
[2008-03-15] 大数阶乘的计算(六)
前些时间写的关于大整数的阶乘计算，效率总是再难以提高：（http://dev.csdn.net/develop/article/28/28306.shtm，http://dev.csdn.net/develop/article/28/28308.shtm，http://dev.csdn.net/develop/article/28... -
[2008-03-15] VB打造超酷个性化菜单（四）
VB打造超酷个性化菜单（四） （接上篇） ´ 属性: 菜单总体风格 Public Property Get Style() As MenuUserStyle Style = MenuStyle End Property Public Property Let Style(ByVal nMenuStyle As MenuUserS... -
[2008-03-15] 关于 VB 用Picturebox 画图的 一个大问题???
我在用VB写一个 画图板的 撤消功能, 当我做到喷枪的 撤消功能时 遇到一个莫名其妙的问题,如下: For i = -10 To 10 Step 3 For j = -10 To 10 Step 3 m = X + Rnd * i * 10 n = Y + Rnd * j * 10 v(l) = m t(l) ... -
[2008-03-15] 大数阶乘的计算(五)
很难想象只要改动几句代码就可以大幅提高执行的效率,在前几篇文章中我写了几种大数阶乘的算法（http://www.csdn.net/Develop/read_article.asp?id=28306，http://www.csdn.net/Develop/read_article.asp?id=2830... -
[2008-03-15] 整数幂的求解
求整数的幂: Private Sub Command1_Click() power 64, 10000´ 64^10000 End Sub Sub power(ByVal x As Long, ByVal n As Integer, Optional ByRef result As String) Dim a() As Long, s() As String, i A... -
[2008-03-15] 全国15亿人口中选1000个代表有多少种选法？
快速组合数C（N，K）=N*（N-1）*（N-2）*...*(N-K+1)/1*2*3*...*K 的求法： Function ZDGYS(ByVal x As Long, ByVal y As Long) As Long ´GET Greatest Common Divisor最大公约数 Dim TEMP As Long If x ... -
[2008-03-15] 大数阶乘的计算（四）
看了northwolves 的文章大数阶乘的计算（三） http://dev.csdn.net/article/28/28432.shtm 很有启发，联想起以前自己编写过一个类似的函数，方法与其差不多，都是动态数组的增位保存方式。效率上比northwolves兄... -
[2008-03-15] Vb6里面数组的使用的小例子
Vb6里面数组的使用的小例子 （1）：动态数组的使用 (1.1)：首先声明数组的类型 语法为dim a() as integer (1.2)：使用的时候定义数祖的下标和上标 语法为redim a(1 to 5)，表示数组的小标为1，上标为5。 (1.3)：... -
[2008-03-15] vsprint打印实例
Option Explicit Public Function formatData2(ByVal data1 As Double, ByVal data2 As Double) As String Dim dt1, dt2 As Double dt1 = data1 dt2 = data2 If dt1 = 0 Or dt1 = 0# Or dt2 = 0 Or dt2 = 0# The... -
[2008-03-15] 应用MapX编程实现地图数据查询
0、综述 应用MapX控件实现查询的功能并不太难。MapX为我们提供了Find、FindFeature等对象，可以用来实现我们需要的功能：） 1、本程序实现从下列表中选择一个节点，并以此节点为中心进行进行定位的功能（实例以第... -
[2008-03-15] VB中使用EXCEL输出
Private Sub cmdSwatch_Click() Dim xls As excel.Application Dim xlbook As excel.Workbook ´On Error GoTo exlError Dim i As Integer If Dir(Text1.Text) "" Then ´此目录下如有同名文件给出提... -
[2008-03-15] 实现货币金额中文大写转换的程序
今天整理文件时发现了以前写的货币金额中文转换（转换一亿亿元以下数目的货币）的代码，帖出来与大家共享： Function daxie(money As String) As String ´ Dim x As String, y As String Const zimu = ".s...