VB中在一个Form事件中显示另一个Form并且使Form窗口停留的问题。-CSDN论坛

VB中在一个Form事件中显示另一个Form并且使Form窗口停留的问题。

VB > VB基础类

收藏回复

[问题点数：50分，结帖人Jhzyz]

⋅馮強的留言板 ⋅【求助】关于地磅232接口读数据的技术规范或源码（听说项目是C#开发，所以发这个版了） ⋅VS2005安装后未啥还有VJ#和netframe1.0sp3？ 更多帖子 关注私信空间博客 版主 馮強 等级 本版专家分：5109 结帖率 97.96%: 用Form1和Form2，在Form1中按下一个键，调用Module中的一个函数，函数将显示窗体Form2，并且根据用户输入返回值，然后在Form1的Click事件中继续处理。现在，我的问题是无法使form2停留。

用下面的语句可以工作，但不太好用：

Public Sub logonr3(logname As String, password As String, logflag As Boolean)

   Form2.r3password.Text = ""         ' 每次进入清除上次密码

   Form2.Show    '激活R/3登录窗口

   Do While True

      DoEvents

   Loop

End Sub

请教大家该如何写？

2003-04-26 15:05:30

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅用过vbAccelerator VB6 Popup Menu DLL的朋友请进。 ⋅笔记本上使用LINUX的两个问题 ⋅RedHat Linux 6.0的安装问题，请老手帮忙解决。急!重“金”相谢! 更多帖子 关注私信空间博客 szqlovesly 等级 本版专家分：550: Public Sub logonr3(logname As String, password As String, logflag As Boolean)

   Form2.r3password.Text = ""         ' 每次进入清除上次密码

   Form2.Show vbModal
End Sub

窗体的Show方法是有参数的，vbModal表示该窗体是模式运行，即执行过程中其他窗体失效

2003-04-26 15:12:29

点赞只看TA 引用举报 #1得分 50

⋅馮強的留言板 ⋅【求助】关于地磅232接口读数据的技术规范或源码（听说项目是C#开发，所以发这个版了） ⋅VS2005安装后未啥还有VJ#和netframe1.0sp3？ 更多帖子 关注私信空间博客 版主 馮強 等级 本版专家分：5109: 试过了，可行。多谢。

2003-04-26 15:23:39

点赞只看TA 引用举报 #2得分 0

⋅关于ExpressQuantumGrid分组 ⋅OpenGL 缩放问题 ⋅OpenGL问题：鼠标不同步，重画时有双影，怎么解决？ 更多帖子 关注私信空间博客 lazycat818 等级 本版专家分：1640: 我早就想写一点东西，探讨VB对话框的编程了，现在先说一点。
就你的问题，楼上说的Form2.Show vbModal是正确的，但肯定不完整。建议：
在form2中加入 Public mReturn as integer，然后在确定按钮的Click过程中加入
mReturn=1    me.hide  在取消按钮中加入mReturn=0    me.hide
将logonr3改成：
Public Sub logonr3(logname As String, password As String, logflag As Boolean)

   Form2.r3password.Text = ""         ' 每次进入清除上次密码

   Form2.Show vbModal
   if form2.mReturn=1 then
       password=Form2.r3password.Text
       ‘获取form2中的信息
       logflag=true
   else
       logflag=false
   end if

   unload form2

End Sub

最好在form2中再加一个布尔变量public bCanUnload as boolean，标志是否是按了按钮，然后在unload事件中作点处理：
if not bCanUnload then cancel＝1
再在unload form2前加上form2.bCanUnload=true
(不作这些处理，会多激发form2的Load事件一次)

还有一个简单的办法，但是用到了全局变量
加一个全局变量Public mReturn as integer(定义在模块中)

在form2的确定按钮的Click过程中加入mReturn=1    me.hide
在取消按钮中加入mReturn=0    me.hide

将logonr3改成：
Public Sub logonr3(logname As String, password As String, logflag As Boolean)
   dim dlg as form2
   set dlg=new form2
   on error resume next
   dlg.Show vbModal
   if mReturn=1 then
       password=dlg.r3password.Text
       ‘获取form2中的信息
       logflag=true
   else
       logflag=false
   end if

   unload dlg
   set dlg=nothing

End Sub

2003-04-26 16:06:31

点赞只看TA 引用举报 #3得分 0

⋅关于ExpressQuantumGrid分组 ⋅OpenGL 缩放问题 ⋅OpenGL问题：鼠标不同步，重画时有双影，怎么解决？ 更多帖子 关注私信空间博客 lazycat818 等级 本版专家分：1640: 抱歉，写的匆忙，有错误

在form2中加入 Public mReturn as integer，然后在确定按钮的Click过程中加入
mReturn=1    me.hide  在取消按钮中加入mReturn=0    me.hide
将logonr3改成：
Public Sub logonr3(logname As String, password As String, logflag As Boolean)

   Form2.r3password.Text = ""         ' 每次进入清除上次密码

   Form2.Show vbModal
   if form2.mReturn=1 then
       password=Form2.r3password.Text
       ‘获取form2中的信息
       logflag=true
   else
       logflag=false
   end if

   unload form2

End Sub

最好在form2中再加一个布尔变量public bCanUnload as boolean，标志是否是按了按钮，然后在unload事件中作点处理：
if not bCanUnload then
  cancel＝1
  me.hide
end if
再在unload form2前加上form2.bCanUnload=true
(不作这些处理，如果是用右上角的关闭按钮取消，会多激发form2的Load事件一次)

还有一个简单的办法，但是用到了全局变量
加一个全局变量Public mReturn as integer(定义在模块中)

在form2的确定按钮的Click过程中加入mReturn=1    me.hide
在取消按钮中加入mReturn=0    me.hide

将logonr3改成：
Public Sub logonr3(logname As String, password As String, logflag As Boolean)
   dim dlg as form2
   set dlg=new form2
   on error resume next
   mReturn=0
   dlg.Show vbModal
   if mReturn=1 then
       password=dlg.r3password.Text
       ‘获取form2中的信息
       logflag=true
   else
       logflag=false
   end if

   unload dlg
   set dlg=nothing

End Sub

2003-04-26 16:13:10

点赞只看TA 引用举报 #4得分 0

⋅馮強的留言板 ⋅【求助】关于地磅232接口读数据的技术规范或源码（听说项目是C#开发，所以发这个版了） ⋅VS2005安装后未啥还有VJ#和netframe1.0sp3？ 更多帖子 关注私信空间博客 版主 馮強 等级 本版专家分：5109: 虽然已比结贴，但是LazyCat818的解决方案很合理，没法给分给你。下次吧。

2003-04-27 14:05:09

点赞只看TA 引用举报 #5得分 0

收起

收藏回复

馮強

等级：

关注私信 TA的帖子

vb Form的基本事件: Form_Activate() 当此窗体变为活动窗口时触发 End Sub Private Sub Form_Click() 单击时触发 End Sub Private Sub Form_DblClick() 双击时触发 End Sub Private Sub Form_Deactivate() 当此窗体不再是活动窗口时触发...

两种方法实现一个button单机事件中执行另一个button单击的事件的程序: 1、第一种方法直接调用另一个button单击事件的程序在窗体上新建一个label标签及两个button按钮，名称及属性均为默认值即可。添加以下代码即可 Public Class Form1 Private Sub Button1_Click(sender As Object, e ...

VB.NET 无法调用另一个隐藏窗体中的按钮，希望能够解决这个问题。: 第一个窗体上有四个按钮，可以显示或隐藏第二个窗体，可以调用第二个窗体上的按钮。第二个窗体上有一个按钮，按钮的功能是产生一个信息框。当第二个窗体显示时，第一个窗体的按钮可以成功调用第二个窗体上的按钮，...

C#中Form窗口中的控件不显示: 问题：在vs2010中的窗体设计时，明明在designer.cs中有控件的代码，但是在窗体设计器中没有显示控件解决：看窗体构造函数中是否有InitializeComponent(); 有可能在designer.cs中没有将控件添加入父控件例如：...

winform 在TabControl中的TabPage选项卡中添加Form窗体，不显示问题记录: this.tabPage1.Controls.Clear(); Frm1 frm= new Frm1(); frm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None; frm.TopLevel = f...

C# 如何在一个窗体内执行另外一个窗口的一个控件的事件: 问题具体描述是：在Form1里面点击一个按钮，可以执行另外一个Form2里一个按钮对应的事件。像一个登陆界面，一个测试网络的界面，我要点登陆界面的登陆键，可以直接开启测试网络界面一个测试键对应的事件。我实验过...

vb 怎么把整个form2变成图片保存到一个位置: 我在form1里操作，按下按钮，就把form2整个窗口变图片保存到text5的位置。text5就是那个路径、而文件名就用form2里的 label1的名字谢谢求个码，我是新手希望好理解的，谢谢各位

.NET将Form窗体作为子控件 显示在Panel中: .NET将Form窗体作为子控件 显示在Panel中 1. 在窗体的构造器New()方法中，添加以下代码 Public Sub New() ' 此调用是 Windows 窗体设计器所必需的。 InitializeComponent() ' 在 Initialize...

vb 把Form窗体嵌入到Panel中: Private Sub btnOtherOperation_Click(sender As Object, e As EventArgs) Handles btnOtherOperation.Click rightPanel.Visible = True Dim form2 As New Form2 form2.TopLevel = False ...

VB6.0不同的form连接统一个数据库的问题，请大神解决。: 'i = 1 '第一个原件编号 End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) xnow = X: ynow = Y If moveflag = True Then Dim cnn As New ADODB....

C#基础教程-c#实例教程，适合初学者: 第一章 C#语言基础本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，...

vb.net中在执行form_load()函数之前都会对程序函数执行什么操作？: 为啥我用于写.txt文件的Public的函数会在form_load之前执行导致.txt文件数据被删除？

在vb的picturebox控件中已经画了一个图形，如何在不覆盖先前的图形的情况下再添加一个新的图形: 这是我画第一个图形的代码段![![图片说明](https://img-ask.csdn.net/upload/201705/23/1495522494_98453.png)图片说明](https://img-ask.csdn.net/upload/201705/23/1495522486_75591.png)

Form中的keypress事件不能用，formkeypress事件: Form中的keypress事件不能用，formkeypress事件欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题，有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个...

VB.NET的form窗体操作: 无模式，在此窗体与另一窗体之间变换焦点，而不必关闭初始窗体。窗体B.ShowDialog() 有模式，和我们平常看的对话框差不多，如果你不关闭这个对话框，就不能继续往下操作。注：如果窗体显示为有模式，则在关闭该...

VB用End退出，不会发生Form_Unload事件: 写个小工具，想在Form_Unload事件中做些退出处理，结果发现，用End退出时，Form_Unload事件并不发生，无法执行其中的代码。点击窗体右上角的叉（关闭窗口）是会触发Form_Unload事件的，但是因为一些原因我关闭了右上...

在两个不同的Form窗体中的DataGridView数据“传递”: 在写程序时，遇到要在一个Form窗体中

【vb+sql】选中datagrid的某一行，使其第一个单元格的内容显示在text文本框中？: 比如这个情况，我就需要选中第一行的时候，text1.text=1001 我已经编写的代码： Option Explicit Private Sub Command1_Click() Dim cn As New ADODB.Connection Dim rs_findsp As New ADODB.Recordset ...

vb.net向另一个窗口中的文本框内写入字符: 如题，现有两个窗口，在form1中有button1，form2中有textbox1，需要通过button1把textbox1中的字符改为123，不用show和load方式，有没有最简便的方法？

实现一个串口被多个Form窗体调用的功能: 很简单，是我自己摸出来的，不要用c#自带的serialPort控件，自己定义一个静态实例即可。 public static SerialPort serialPort1 = new SerialPort(); 然后连接虚拟串口COM3： private void bt_connectPlc_...

c#一个窗口单机事件改变另一个窗体textBox值: //主窗体： public static MainForm mainForm = null; public MainForm() { InitializeComponent(); mainForm = this; } //委托函数，用于修改更改textbox值。... public void UpdateTextBox(string newData) ...

vb.net 一个窗体在另一个窗体的容器内显示: Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr _ , ByVal hWndNewParent As IntPtr) As In

vb 6.0下面窗口Form的Picture属性不能更改问题: 对于vb 6.0下面Form的Picture属性，更改之后，很多人都不知道怎么恢复默认设置。其实很简单，就是选择那个属性之后，直接按键盘上面的...我当时也是很纠结……怎么该都改不回来……这么一个简单的问题，死的心都有啊！

Form的Load事件如何添加: 选中你要添加form_load事件的form，属性视图里找到闪电的那个图标，选择行为，双击load即可

vb读取excel中的数据并在窗体上显示: Public ExcelTable As Workbook 'excel 工作表对象 Private TextBoxA() As Control '以编辑框为基础动态构造数据网格 Private FormWidth As Integer '窗体宽度 ...'以下子程序是用来建立数据网格 ...

VB 中在一个窗体中执行另一个窗体中的代码: Private Sub Form_Click() frm2.Form_Click() 在frm1 里执行 frm2 的 From_Click 代码 End Sub

vb.net form New 带参数构造函数: Public Class FormProjectInfo Private mf_form As New Formmain Public Sub New(ByVal form As Formmain) MyBase.New() InitializeComponent() Me.mf_form = form End S

[VB.NET]form初始化事件的解决方法，高手请进...: <script type="text/javascript"

关于VB.NET中多窗体之间的调用与关闭: 关于VB.NET中多窗体之间的调用，实现多窗体之间的打开，以及打开新窗体后对旧窗体的关闭

vb如何将数据库中某个字段显示在一个文本框: Dim mrc As ADODB.Recordset Private Sub cmdQuery_Click() Dim txtSQL As String Dim MsgText As String txtSQL = "select * from student_Info" Set mrc = ExecuteSQL(txtSQL, MsgText)

相关热词 c# 获取剪切板内容 c#推箱子重新开始 c# 读取接口数据 c#配置 mysql c# 十进制转任意进制 c#微信模板消息开发 c# 刷新托盘 .csproj版本 c# dll文件 vc引用c# c# 电子秤调串口