登录
首页 » VB源码 » VB 6.0 过程引用传递参数

VB 6.0 过程引用传递参数

于 2022-02-12 发布 文件大小:1.81 kB
0 81
下载积分: 2 下载次数: 1

代码说明:

VB 6.0 过程引用传递参数,显示传递前和传递后的参数值:   Private Sub mysub(ByRef i As Integer)    i = 100   End Sub   Private Sub Form_Resize()    Dim num As Integer    num = 1    Print "传递前:" & num    Call mysub(num)    Print "传递后:" & num   End Sub

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB 只允许输入特殊字符
    VB 只允许输入特殊字符,这只是一个普通的用户查询窗口,字段名称、运算符、关 键 字,然后对其进行查询,因为要向cbofields中添加规范化数据,所在再输入时只能输入“>”、“
    2022-03-19 10:07:52下载
    积分:1
  • VB演示矩阵的加法运算
    VB6.0演示矩阵的加法运算,本例中一共是两个矩阵,每一个矩阵都根据不同的算法生成矩阵数字序列,然后把这两个矩阵求和,最后一栏展示的是矩阵相加后的结果,以指定格式输出。看了代码,我暂时没搞懂是什么算法,感兴趣的自己下载源码,研究学习吧。
    2022-04-27 13:59:41下载
    积分:1
  • VB 类似超级兔子的程序界面
    VB 类似超级兔子的程序界面,这只是一个应用程序的界面效果,不包括界面菜单中的功能,因此对界面UI的美化可以参考。这个界面是使用BMP贴图的方式实现,整个窗口就是一张图片,但是经过了处理,添加了菜单,其实挺简单的,当时用在一个手机维修管理系统中了,现在发上来,不知道对大家是否有用?
    2022-02-07 20:21:01下载
    积分:1
  • VB让窗口标题栏闪烁效果
    VB让窗口标题栏闪烁效果源码,不过我测试没有发现标题栏闪烁,咋回事呢?实现的思路是:声明API函数Flashwindow,然后编写下面的代码:   Call FlashWindow(hwnd, 1)   If Me.Caption = "闪烁的标题栏" Then    Me.Caption = "欢迎使用管理软件! "   Else    Me.Caption = "闪烁的标题栏-www.codesc.net"   End If
    2022-08-08 08:27:55下载
    积分:1
  • VB模拟输入的成绩判断奖学金等级
    VB模拟输入的成绩判断奖学金等级,测试前请输入学生的三门功课的成绩,输入成绩后,程序会根据预设的判定一、二、三等奖学金的条件,来判断该同学成绩应该属于几等奖学金。   这类程序其实容易实现,中间的一些小技巧我觉得不错,比如当用户输入一科成绩后,光标自动定位到下一个文本框,如果需要用户输入内容比较多的时候,这个功能可大大提升用户体验。   更多源码细节请下载查看。
    2022-02-20 07:54:43下载
    积分:1
  • VB.NET窗体Tab 读取ini文件 界面滑动等功能集
    本源码基于VB.NET编写,集合了VB.NET中的读取ini文件,窗体Tab标签,界面滑动等效果,界面看上去是一个音乐播放器,其实本程序是侧重于界面的编程设计,演示了窗口中TAB标签切换、界面滑动以及整体界面的美化的具体实现,使用了比较多的三方DLL,已经都打包了,感兴趣的下载源码,在VS2012版本以上的VS中打开并编译。
    2022-01-26 07:32:46下载
    积分:1
  • VB.NET邮件发送实例 可发附件
    VB.NET编写支持发送附件的邮件发送实例,本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类,这里使用了SmtpClient 类发送电子邮件,可设置允许添加的附件类型,支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式,为了避免程序出错,在本程序刚启动时,帐号、密码框暂时不可用。
    2022-08-15 21:36:57下载
    积分:1
  • VB6.0 屏幕滚动字幕(文字滚动)
    VB6 屏幕滚动字幕,这个文字滚动区域被控制在屏幕的右下角,由右向左开始滚动,中间的高度可以调节,通过调节Me.Top = Screen.Height - Me.Height - 800参数,来改变文字滚动区域距离屏幕顶部的距离,文字滚动的实现是基于计时器和循环来实现,下面的代码可为你提供本效果的实现思路:   Label1.Caption = "这里定义需要滚动的文字内容: 用VB制作的文字滚动效果!"   Me.Left = Screen.Width   Me.Top = Screen.Height - Me.Height - 800   BeginPath Me.hWnd   SetBkMode Me.hWnd, TRANSPARENT   EndPath Me.hWnd   rgn = PathToRegion(Me.hWnd)   SetWindowRgn Me.hWnd, rgn, True   Timer1.Interval = 200   Timer1.Enabled = True   End Sub   Private Sub Timer1_Timer()    Me.Left = Me.Left - 100    If Me.Left < Label1.Width * (-1) Then    Timer1.Enabled = False    Me.Left = Screen.Width    Timer1.Enabled = True    End If   End Sub
    2022-05-21 14:58:30下载
    积分:1
  • VB SetWindowLong限制调整窗口大小的最大值
    VB 限制调整窗口大小的最大值,我们根据SetWindowLong函数的说明 ,可写出一个函数,当用户拖动窗口时,控制窗口最大能拖动到什么大小,当达到最大值时,窗口就不能继续被拖大,我们定义一个函数,在打开这个VB窗口时自动加载函数,实现对窗口最大拖动大小的控制:   Private Sub Form_Load()    Dim ret As Long    preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)    ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)   End Sub
    2022-10-14 18:50:03下载
    积分:1
  • Visual basic vb6.0 制作个人调查表窗体
    Visual basic vb6.0 制作个人调查表窗体,这个主要是练习一些VB Form 窗体控件中的元素用法,如果你初学习VB的话,这个例子非常适合你学习。   本例子中主要包括了对VB基本控件元素Check、Option、Text、Label、Button的用法进行了演示,具分享出了具体实现某一功能的代码及设置方法,涉及到光标自动归位、清空文本框、判断用户输入是否正确,断用户选择了哪一项按钮等功能,虽然简单,但对于VB打基础还是挺有帮助的。
    2022-04-18 16:36:31下载
    积分:1
  • 696518资源总数
  • 105570会员总数
  • 13今日下载