如何让MSGBOX弹出的对话框失去焦点?真的没有人会?

autoupdate 2003-08-20 02:06:57
如何让MSGBOX弹出的对话框失去焦点?真的没有人会?
...全文
206 21 打赏 收藏 转发到动态 举报
写回复
用AI写文章
21 条回复
切换为时间正序
请发表友善的回复…
发表回复
atlasGS 2003-08-22
  • 打赏
  • 举报
回复
同意楼上所说!
qianzi0520 2003-08-22
  • 打赏
  • 举报
回复
有空整理一下!
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim rs As ADODB.Recordset
Dim sql As String

If KeyAscii = 13 And Trim(Text1.Text) <> "" Then
If Len(Trim(Text1)) <> 15 Then
MsgBox "错误的号码!", vbOKOnly + vbExclamation
Text1.SelStart 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If
If cn.State = adStateClosed Then
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\山东波导串号\sdch.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
end if
sql = "select * from 新串号 where 串号='" & Trim(Text1.Text) & "'"
Set rstemp = cn.Execute(sql)
If Not rstemp.EOF Then
rstemp.Close
MsgBox "重复的号码!", vbOKOnly + vbExclamation
Text1.SelStart 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If
sql = "insert into 新串号(型号,地区,箱号,串号,代理商,日期,备注) values('" & Trim(combo1.Text) & "','" & Trim(combo2.Text) & "','" & Trim(text2.Text) & "','" & Trim(Text1.Text) & "','" & Trim(combo3.Text) & "','" & dt1 & "','" & Trim(text3.Text) & "')"
cn.Execute sql
Text1.Text = ""
Text1.SetFocus
End If
End Sub

这样肯定OK了.
你用Change的话,多的那个回车当然只能到后面处理啦,这就是你问题的症结.


qingming81 2003-08-21
  • 打赏
  • 举报
回复
有可能是弹出来,但隐藏在后面。也许你的主窗体和它争夺了焦点。
道素 2003-08-21
  • 打赏
  • 举报
回复
End If
If rs.State = adStateOpen Then

Set rs = Nothing
End If
不应该是nothing,close就可以了,否则还有new一下
道素 2003-08-21
  • 打赏
  • 举报
回复
End If
If rs.State = adStateOpen Then

Set rs = Nothing
End If
不应该是nothing,close就可以了,否则还有new一下
qianzi0520 2003-08-21
  • 打赏
  • 举报
回复
啊,好多乱码,我要下班了,你将就着看吧
qianzi0520 2003-08-21
  • 打赏
  • 举报
回复
试试看我的这段
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim rs As ADODB.Recordset
Dim sql As String

If KeyAscii = 13 And Trim(Text1.Text) <> "" Then
If Len(Trim(Text1)) <> 15 Then
MsgBox "´íÎóµÄºÅÂ룡", vbOKOnly + vbExclamation
Text1.SelStart 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If
If cn.State = adStateClosed Then cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\ɽ¶«²¨µ¼´®ºÅ\sdch.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
sql = "select * from д®ºÅ where ´®ºÅ='" & Trim(Text1.Text) & "'"
Set rstemp = cn.Execute(sql)
If Not rstemp.EOF Then
rstemp.Close
MsgBox "Öظ´µÄºÅÂ룡", vbOKOnly + vbExclamation
Text1.SelStart 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If
sql = "insert into д®ºÅ(ÐͺÅ,µØÇø,ÏäºÅ,´®ºÅ,´úÀíÉÌ,ÈÕÆÚ,±¸×¢) values('" & Trim(combo1.Text) & _
"','" & Trim(combo2.Text) & "','" & Trim(text2.Text) & "','" & Trim(Text1.Text) & "','" & _
Trim(combo3.Text) & "','" & dt1 & "','" & Trim(text3.Text) & "')"
cn.Execute sql
Text1.Text = ""
Text1.SetFocus
End If
End Sub
autoupdate 2003-08-21
  • 打赏
  • 举报
回复
我出问题的代码如下:
Private Sub Text1_Change()


If Len(Text1) = 15 Then
If cn.State = adStateClosed Then
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\山东波导串号\sdch.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
End If
If rs.State = adStateOpen Then

Set rs = Nothing
End If
rs.Open "新串号", cn, adCmdTable, adLockPessimistic
If rs.Supports(adAddNew) Then
rs.AddNew
On Error GoTo e1
If Text3 = "" Then Text3 = "无"
rs("型号") = Trim(Combo1)
rs("地区") = Trim(Combo2)
rs("箱号") = Text2
rs("串号") = Text1
rs("代理商") = Trim(Combo3)
rs("日期") = DT1
rs("备注") = Text3
rs.Update
Text1.Text = ""
Exit Sub
End If
e1:

MsgBox Err.Description

Text1 = ""
End If

end sub

qianzi0520 2003-08-21
  • 打赏
  • 举报
回复
你是怎么做的阿,给点代码看看呢

我也老做条码扫描器的程式,可是没遇到过你说的问题。
我一般这么做
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.Text <> "" Then
'判断是否重复
If 重复的 Then MsgBox "该号码重复了!", vbOKOnly + vbExclamation
End If
End Sub
autoupdate 2003-08-21
  • 打赏
  • 举报
回复
对呀, DragonCity(自己发工资) 说的对但是如何解决呢?
DragonCity 2003-08-20
  • 打赏
  • 举报
回复
听说条码扫描器会在扫描到的字符串后面加个回车。
估计是这个回车把你的msgbox给关掉了。
qingming81 2003-08-20
  • 打赏
  • 举报
回复
以前讨论窗体置前的帖子多,可以搜索看看。
qingming81 2003-08-20
  • 打赏
  • 举报
回复
让窗体总是处于最前面:在模块中放置如下代码。在Timer或窗体的deativate中调用窗体置前
即:call KeepOnTop(form1)

Option Explicit

#If Win16 Then
Declare Sub SetWindowPos Lib "User" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
#Else
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End If

Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const wFlags = SWP_NOMOVE Or SWP_NOSIZE

Sub KeepOnTop(frmForm As Form)
'窗体置前
SetWindowPos frmForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Sub RemoveOnTop(frmForm As Form)
'窗体取消置前
SetWindowPos frmForm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, wFlags
End Sub
qingming81 2003-08-20
  • 打赏
  • 举报
回复
我认为可以的:用一个timer来检测。或在主窗体的_deactivate中写代码。平时经常看到的让窗体处于最前面的代码就管用。
form1.setfocus
good_sun 2003-08-20
  • 打赏
  • 举报
回复
有找到弹出窗口句柄的办法,不过有特殊要求还是自己做个msgbox好
watt 2003-08-20
  • 打赏
  • 举报
回复
不明白,为什么不激活。
lxcc 2003-08-20
  • 打赏
  • 举报
回复
建议自己作msgbox
autoupdate 2003-08-20
  • 打赏
  • 举报
回复
我用扫码器扫手机串号然后向数据库中添加,如果串号已经重复录入会弹出对话框提示,可是不知是什么原因系统并不提示(如果单步执行没有问题)?我考虑可能是太快出了提示条码器激活了确定或者取消然后对话框就没有了?所以我提出了以上问题,没有办法水平有限望各位大侠不吝赐教!
fslyw 2003-08-20
  • 打赏
  • 举报
回复
同意ch21st
道素 2003-08-20
  • 打赏
  • 举报
回复
你想做什么吧,如果特殊要求自己做msgbox窗体不要用系统的,这样你想怎么显示就怎么显示
加载更多回复(1)
没法下载,到这里折腾一把试试。 本文由abc2253130贡献 doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT,或下载源文件到本机查看。 C#(WINFORM)学习 一、 C#基础 基础 类型和变量 类型和变量 类型 C# 支持两种类型:“值类型”和“引用类型”。值类型包括简单类型(如 char、int 和 float 等)、枚举类型和结构类型。引用类型包括类 (Class)类 型、接口类型、委托类型和数组类型。 变量的类型声明 变量的类型声明 每个变量必须预先声明其类型。如 int a; int b = 100; float j = 4.5; string s1; 用 object 可以表示所有的类型。 预定义类型 下表列出了预定义类型,并说明如何使用。 类型 object 说明 所有其他类型的最终 基类型 字符串类型; 字符串是 Unicode 字符序列 8 位有符号整型 16 位有符号整型 32 位有符号整型 64 位有符号整型 示例 object o = null; 范围 string sbyte short int long string s = "hello"; sbyte val = 12; short val = 12; int val = 12; long val1 = 12; -128 到 127 -32,768 到 32,767 -2,147,483,648 2,147,483,647 -9,223,372,036,854,775,808 到 第1页 C#(WINFORM)学习 long val2 = 34L; 到 9,223,372,036,854,775,807 byte ushort 8 位无符号整型 16 位无符号整型 byte val1 = 12; ushort val1 = 12; uint val1 = 12; uint 32 位无符号整型 uint val2 = 34U; ulong val1 = 12; ulong val2 = 34U; ulong 64 位无符号整型 ulong val3 = 56L; ulong val4 = 78UL; float 单精度浮点型 float val = 1.23F;7 位 double val1 = 1.23; double 双精度浮点型 double val2 = ±5.0 × 10?324 ±1.7 × 10 308 0 到 255 0 到 65,535 0 到 4,294,967,295 0 到 18,446,744,073,709,551,615 ±1.5 × 10?45 ±3.4 × 10 38 到 到 4.56D;15-16 布尔型;bool 值或为 真或为假 字符类型;char 值是 一个 Unicode 字符 精确的小数类型, 具有 28 个有效数字 bool val1 = true; bool val2 = false; char val = 'h'; decimal val = bool char decimal DateTime ±1.0 × 10?28 ±7.9 × 10 28 到 1.23M;28-29 变量转换 简单转换: float f = 100.1234f; 可以用括号转换: short s = (short)f 也可以利用 Convert 方法来转换: string s1; s1=Convert.ToString(a); MessageBox.Show(s1); 常用 Convert 方法有: 第2页 C#(WINFORM)学习 C# Convert.ToBoolean Convert.ToByte Convert.ToChar Convert.ToDateTime Convert.ToDecimal Convert.ToDouble Convert.ToInt16 Convert.ToInt32 Convert.ToInt64 Convert.ToSByte Convert.ToSingle Convert.ToString Convert.ToUInt16 Convert.ToUInt32 Convert.ToUInt64 备注 Math 类 常用科学计算方法: C# Math.Abs Math.Sqrt Math.Ro

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧