精华内容
下载资源
问答
  • VB演示如何加载窗体事件的例子,演示当窗体... '窗体加载事件发生后就在窗体上输出内容  Text1.Text = ""  '加载后立即清空文本框  Command1.Caption = "加载事件"  '加载后还可以立即修改控件属性的值  End Sub
  • VB 生成exe后,动态加载窗体的show事件会出现运行时错误5的解决方法博主最近在做一款聊天工具,需要动态加载聊天的窗口,用到这样的代码Dim newchat As New FrmChat newchat.show 这样的代码在调试过程没有问题,...

    VB 生成exe后,动态加载窗体的show事件会出现运行时错误5的解决方法

    博主最近在做一款聊天工具,需要动态加载聊天的窗口,用到这样的代码

    Dim newchat As New FrmChat
    newchat.show
    

    这样的代码在调试过程没有问题,但是在生成exe文件后,却在show事件这里报错[运行时错误5,无效的过程调用或参数],这里明明没有什么问题啊,博主搞了很久,也没搞明白,不过最后找到解决的办法了:

    只要两句之间加一点延时就好了,延时可以借助winapi函数来实现

    Public Declare Function timeGetTime Lib "winmm.dll" () As Long
    Public Sub delay(ByVal n As Single)
    
    Dim tm1, tm2 As Long
    tm1 = timeGetTime
    Do
        tm2 = timeGetTime
        If (tm2 - tm1) / 1000 > n Then Exit Do
        DoEvents
    Loop
    

    End Sub

    然后

    Dim newchat As New FrmChat
    delay 0.3  '延时0.3秒
    newchat.show
    

    这样子就可以正常运行了

    展开全文
  • 显示结果什么也没有 Private Sub Form_Load() pic.Print "123" End Sub ...当我把上面代码 放到单击事件中,又可以显示。 最后搜索引擎收到了 解决方案:需要把AutoRedraw 设为 true ...

    显示结果什么也没有

    Private Sub Form_Load()
      pic.Print "123" 
    End Sub
    

    当我把上面代码 放到单击事件中,又可以显示。

     

    最后搜索引擎收到了 解决方案:需要把AutoRedraw 设为 true

    展开全文
  • 预先设计响应事件代码,如:事件Sub MyButton_Click()将是非法的,当然,可以将要 响应的事件封装在控件内部。就编程的观点来看该方法没什么大的用处,开发ActiveX 控件的目的是为了资源共享,为了被其他开发人员...
  • VB做扫雷游戏的一个简单论文 1. For...Next循环应用 在游戏设计上,利用了两个二维数组分别记录地雷的分布状况及地雷区及表面探测情形。利用数据循环的对比,不但速度快,而且在设计阶段,程序的架构比较清楚。 2....
  • 简介 INTRODUCTION随机数案例的复习,进一步拓展...课题8 随机数案例复习加练授课...窗体启动加载事件form_load4.消息提示框msgbox5.相关控件:label、commandbutton、picturebox、textbox、listbox6.相关逻辑:if语...

    9ddb4f57f03e6bcbea368ad13b2c48e3.gif

    简介 INTRODUCTION随机数案例的复习,进一步拓展...

    9a87b2128b0f9f648468406d459da211.png

    课题8 随机数案例复习加练

    授课:刘金玉

    猜猜我是几小游戏:

    本期为复习课,增加代码的练习。

    知识要点:

    1.随机数知识

    2.弹出框inputbox

    3.窗体启动加载事件form_load

    4.消息提示框msgbox

    5.相关控件:label、commandbutton、picturebox、textbox、listbox

    6.相关逻辑:if语句大小判断

    程序注意要点:

    1.随机数生成前一定要加随机数种子,randomize默认把系统时间作为随机数种子

    如果不写,随机数将可能出现固定一个值的情况。

    软件设计界面:

    9689f429f85c08fbe698718ca089b894.png

    源代码分享:

    Dim sjs%, c%Private Sub Command1_Click()Randomizesjs = Int(Rnd * 1000) + 1Command1.Enabled = FalseLabel1.Caption = "系统已经生产一个1至1000的随机整数"End SubPrivate Sub Command2_Click()c = c + 1Dim shuru As Integershuru = Val(Text1.Text)If c Mod 8 = 0 Then    Picture1.ClsEnd IfIf shuru > sjs Then    Picture1.Print "猜大了,这是第" & c & "次猜测"ElseIf shuru < sjs Then    Picture1.Print "猜小了,这是第" & c & "次猜测"Else    Picture1.Print "恭喜你,猜对了,这是第" & c & "次猜测"    List1.AddItem "第" & (List1.ListCount + 1) & "轮猜测,猜了" & c & "次"    c = 0End IfEnd SubPrivate Sub Form_Load()ShowDim a$a = InputBox("请输入密码", "密码aaa")If a <> "aaa" Then    EndEnd IfEnd Sub

    联系作者:刘金玉

    39e2c500e70d831e0e7554f70ae83aee.png

    长按关注公众号

    3bb9222ab7acfb568b5ff4406b873443.png

    编程创造城市官网:https://bcczcs.com/相关文章:
    1. 长期写代码的人最后怎样了?一起看看程序员的人生规划吧

    2. 要毕业了,还有科目不及格,该怎么办?如果调节自己的心态?

    3. 现在有多少人在学习计算机编程?学习只为当码农吗?

    4. 在学习过程中,老师重要还是自己的学习能力重要?

    5. 软件开发商何时介入生产过程?一起跟随程序员看看软件开发全阶段

    6. 通过疫情,我们get了哪些实用的健康知识?

    7. 大专毕业学生用Python能找到好工作吗?

    8. 2020年新冠肺炎给上班族带来哪些变化?

    9. 嘘!程序员写代码需要安静吗?安静的环境带给我们什么?

    10. 程序员会喝酒吗?让人陷入无限遐想...

    11. 程序员都在干些什么?他们有那么的神秘吗?一起来揭晓一下。

    12. 刘金玉思维#008 感恩默默付出的他们

    展开全文
  • 简介 INTRODUCTION通过一个小游戏实战,来综合复习基础知识,特别是随机数...窗体启动加载事件form_load4.消息提示框msgbox5.相关控件:label、commandbutton、picturebox、textbox、listbox6.相关逻辑:if语句大小...

    9c665434f84809d78d19d8e6e1178845.gif

    简介 INTRODUCTION通过一个小游戏实战,来综合复习基础知识,特别是随机数的灵活使用

    a3afa9e8ea23c77ef235cb67c33666a9.png

    课题7 随机数案例练习

    授课:刘金玉

    猜猜我是几小游戏:

    知识要点:

    1.随机数知识

    2.弹出框inputbox

    3.窗体启动加载事件form_load

    4.消息提示框msgbox

    5.相关控件:label、commandbutton、picturebox、textbox、listbox

    6.相关逻辑:if语句大小判断

    思路分析步骤:

    1.在form_load事件中使用inputbox用来输入密码

    2.判断输入密码正确,就进入界面,否则就不能进入游戏界面

    3.将生成的随机数存储到全局变量中(通用中)

    4.猜解的时候,将输入的数字转为数值类型与生成的随机数比较

    5.比较判断大小,将结果提示输出到日志区(picturebox)

    6.每次猜解成功后,将猜解次数保存到listbox列表中

    开发过程要点:

    1.生成[1,1000]的随机整数,使用int(rnd*1000+1)

    2.猜解逻辑伪代码

    注意:如果没有猜对,需要记录猜测次数到一个变量中。

    if 输入值>随机数 then

       print 猜大了

    else if 输入值

      print 猜小了

    else

       print 才对了

    end if

    3.记录猜解次数

    声明全局变量count来记录猜解次数,每次点击猜解都+1

    软件设计界面:

    cfb9d0d58ea73f41a683c5ec8ddd4c00.png

    源代码分享:

    Dim sjs%, c%Private Sub Command1_Click()sjs = Int(Rnd * 1000 + 1)Command1.Enabled = FalseLabel1.Caption = "系统已经生产一个1至1000的随机整数"End SubPrivate Sub Command2_Click()c = c + 1Dim shuru As Integershuru = Val(Text1.Text)If c Mod 8 = 0 Then    Picture1.ClsEnd IfIf shuru > sjs Then    Picture1.Print "猜大了,这是第" & c & "次猜测"ElseIf shuru < sjs Then    Picture1.Print "猜小了,这是第" & c & "次猜测"Else    pictrue1.Print "恭喜你,猜对了,这是第" & c & "次猜测"End IfEnd SubPrivate Sub Form_Load()ShowDim a$a = InputBox("请输入密码", "密码aaa")If a <> "aaa" ThenEndEnd IfEnd Sub

    联系作者:刘金玉

    4b0ba11fb7d7fe17cf484c50b60ef6e8.png

    长按关注公众号

    2d34ad78ab8478b8c0377643ddcdfbcf.png

    编程创造城市官网:https://bcczcs.com/相关文章:
    1. 长期写代码的人最后怎样了?一起看看程序员的人生规划吧

    2. 要毕业了,还有科目不及格,该怎么办?如果调节自己的心态?

    3. 现在有多少人在学习计算机编程?学习只为当码农吗?

    4. 在学习过程中,老师重要还是自己的学习能力重要?

    5. 软件开发商何时介入生产过程?一起跟随程序员看看软件开发全阶段

    6. 通过疫情,我们get了哪些实用的健康知识?

    7. 大专毕业学生用Python能找到好工作吗?

    8. 2020年新冠肺炎给上班族带来哪些变化?

    9. 嘘!程序员写代码需要安静吗?安静的环境带给我们什么?

    10. 程序员会喝酒吗?让人陷入无限遐想...

    11. 程序员都在干些什么?他们有那么的神秘吗?一起来揭晓一下。

    12. 刘金玉思维#008 感恩默默付出的他们

    展开全文
  • 时 间:2010-09-03 17:52:38作 者:摘 要:本文介绍一种利用VB6.0对...步骤1:进入VB6.0,创建一个标准EXE工程步骤2:创建引用步骤3:引用Microsoft Access 11.0 Object Library步骤4:窗体加载事件中加入如下代码...
  • VB实时曲线绘制 用于实时监控

    热门讨论 2011-08-28 11:14:43
    实现动态数据曲线的绘制与现实,是各种工业监控系统的重要功能,而实现方法不尽相同。vb编程简单易懂的实时数据曲线绘制方法。...3,为窗体加载代码 4,为开始按钮添加单击事件 5,为滚动条添加change时间
  • //copy这段代码  Private Sub ControlClick(ByVal sender As Object, ByVal e As System.EventArgs)  MessageBox.Show(CType(sender, Control).Name)  End Sub ...//然后再窗体加载事件
  • 窗体加载时我们只是初始化了我们的CJM,现在当关闭窗体时我们也需要关闭CJM。 以下为操作步骤: 在VisualStudio中,从位于代码窗口顶部的右手下拉框中选择 “FormClosing”事件。 这会创建一个Form1_FormClosing...
  • VB硬盘序列号(逻辑)

    千次阅读 2006-10-10 15:53:00
    第二个是一个窗体加载事件,请写入某个窗体的代码中, Private Declare Function 获得硬盘序列号 Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As ...
  • VB程序设计及应用

    2012-11-26 14:07:12
    6.3.1 加载窗体 6.3.2 显示窗体 6.3.3 隐藏窗体 6.3.4 卸载窗体 6.3.5 建立多窗体 6.4 鼠标事件与键盘事件 6.4.1 鼠标事件 6.4.2 键盘事件 实训 习题 第 7章 常用控件的使用 7.1 标签框与文本框 ...
  • 里面所含的内容有: 1、vb6MDPlay重复播放.txt ...47、vb6中怎样加载背景图片,能随窗体大小变化? .txt 以上内容纯属作者本人整理,内容的可靠性也经本作者亲手证实,请放心使用,珍惜作者的劳动成果。
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    利用随机函数在一个预览窗体中提前展示形状供用户参考,然后将展示的形状复制到游戏窗体中进行摆放,在游戏窗体中用户就可以使用键盘的方向键来控制方块的运动,然后利用递归语句对每一行进行判断,如果有某行的方块...
  • VB编程资源大全

    2007-10-17 20:47:23
    roundcheck menu.zip 圆形菜单复选符(7KB) 99,bmpmenu.zip 位图菜单(30KB) 100,unreload.zip 防止程序重复加载(5KB) 101,weektips.zip 窗体加入抖动背景(46KB) 102,download.zip 一...
  • 代码如下: 主要功能是在FORM上动态添加一个或多个控件。 1 Option Explicit 2 Dim oCtrl As Object ... 3 '使得控件可以响应事件 ... 4 Dim WithEvents MyBtn As CommandButton ... 7 '先在窗体加载...
  • VB.NET 入门经典 (第三版)

    热门讨论 2009-07-29 16:56:26
    在介绍完创建应用程序的基础知识后(如创建窗口和对话框,如何用代码处理突发事件,什么是面向对象的程序设计,以及如何在应用程序中使用它等)。 目录: 第1章 初识Visual Basic .NET 1 1.1 Windows和DOS编程 1 1.2...
  • 做一个系统,打开系统时候要加载和检测一些数据。想到要用像打开Photoshop那样有一个初始屏幕,有提示加载数据情况。感觉很棒。...在你的项目里面,新建一个窗体:FlashScn.vb(名字随便)作为程序启动画
  • 在介绍完创建应用程序的基础知识后(如创建窗口和对话框,如何用代码处理突发事件,什么是面向对象的程序设计,以及如何在应用程序中使用它等)。 目录: 第1章 初识Visual Basic .NET 1 1.1 Windows和DOS编程 1 1.2...
  • 在介绍完创建应用程序的基础知识后(如创建窗口和对话框,如何用代码处理突发事件,什么是面向对象的程序设计,以及如何在应用程序中使用它等)。 目录: 第1章 初识Visual Basic .NET 1 1.1 Windows和DOS编程 1 1.2...
  • ASP.NET的网页代码模型及生命周期

    热门讨论 2009-07-28 14:22:11
    q 页面逻辑元素:包括事件处理程序和代码。 q designer.cs页文件:用来为页面的控件做初始化工作,一般只有ASP.NET应用程序(Web Application)才有。 ASP.NET页面中包含两种代码模型,一种是单文件页模型,另一种是...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • 1.3.1 在代码中设置窗体属性 29 1.3.2 visual studio的其他组件 37 1.4 增强示例应用程序的功能 37 1.4.1 定制代码 39 1.4.2 构建应用程序 43 1.4.3 重用第一个windows窗体 50 1.5 visual studio 2010中的特色...
  • 实例300 为工具栏添加事件处理代码 实例301 带下拉菜单的工具栏 实例302 可调整按钮位置的工具栏 实例303 浮动工具栏 实例304 根据表中数据动态生成工具栏 实例305 利用CoolBar控件制作工具栏 实例306 自己...
  • 1.3.1 在代码中设置窗体属性 29 1.3.2 visual studio的其他组件 37 1.4 增强示例应用程序的功能 37 1.4.1 定制代码 39 1.4.2 构建应用程序 43 1.4.3 重用第一个windows窗体 50 1.5 visual studio 2010中...
  • 实例300 为工具栏添加事件处理代码 实例301 带下拉菜单的工具栏 实例302 可调整按钮位置的工具栏 实例303 浮动工具栏 实例304 根据表中数据动态生成工具栏 实例305 利用CoolBar控件制作工具栏 实例306 自己...
  • java源码包---java 源码 大量 实例

    千次下载 热门讨论 2013-04-18 23:15:26
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...

空空如也

空空如也

1 2 3
收藏数 59
精华内容 23
关键字:

vb窗体加载事件代码