我想要让VB里的inputbox让窗口永远 不失焦点保有焦点该怎么做?

------解决方案--------------------这个不是很难的。
我做了一个,楼主试试。
把下面的张图片,另存为&*.rar&文件,打开就能解压源码。
12345678910
12345678910
12345678910 上一篇:下一篇:文章评论相关解决方案 12345678910 Copyright & &&版权所有站长学院 >
C#中调用VB中Inputbox功能
C#自己没有Inputbox这个类,但是Inputbox也蛮好用的,所以有两种方法可以使用
一:.间接调用vb中的Inputbox功能
1。在项目中添加对Microsoft.VisualBasic引用
2。在项目中添加命名空间Using Microsoft.VisualB
3。以后就可以直接使用VB中的好多类库(爽啊……)
例如:textBox1.Text=Microsoft.VisualBasic.Interaction.InputBox(“提示性文字”, “对话框标题”, “默认值”, X坐标, Y坐标);
上面的 X坐标, Y坐标 可以取值为 C1 和 -1,表示屏幕中间位置显示。
二:还可以自己写一个InputBox()这个函数。动态生成一个FORM以及TEXTBOX和BUTTON等,确定好位置,返回用户输入的字符串。
public partial class InputBox : Form
private InputBox()
InitializeComponent();
public String getValue()
return textBox1.T
public static bool Show(String title,String inputTips,bool isPassword,ref String value)
InputBox ib = new InputBox();
if (title != null)
if (inputTips != null)
ib.label1.Text = inputT
if (isPassword)
ib.textBox1.PasswordChar = '*';
if (ib.ShowDialog()==DialogResult.OK)
value = ib.getValue();
ib.Dispose();
ib.Dispose();
if (InputBox.Show("用户输入", "密码:", true, ref value))
//输入成功后的操作
】【】【】vb6 inputbox回传值 - 怎么办? - 怎么治?
pyfunc 提问:
vb6 inputbox回传值
在使用inputbox函数时a = val(inputbox(&输入数字&,&输入数字&))回传a会是数字串我想请问的是如果按下&取消&,回传值是0如果没输入值按&确定&,回传值也是0 更多: 例如我设定输入必需为3码,超过或不足都会触发msgbox显示信息状况但是 没输入按确定 和 取消 的回传值一模一样,让我没办法辨识使用者是选哪个我要如何去辨别是按 &确定& 或 &取消& 呢?
amphetamachine 回答:
' 版本VB6' 拉一Command1并点击即之可。&&& Private Sub Command1_Click()Dim i As Stringi = InputBox(&Enter a value&)If StrPtr(i) = 0 Then ' user按下取消&&MsgBox &Cancel&Else & & & & & & & & & & &' user按下确定&&MsgBox iEnd IfEnd Sub
最新问题:,,,,,,,,,,,,,,,
CopyRight & 2016
All Rights Reserved怎样Inputbox输入 谁能教我做VB小游戏 - 小小知识站
怎样Inputbox输入 谁能教我做VB小游戏
最近有网友提出“怎样Inputbox输入 谁能教我做VB小游戏”等问题,小小知识站提取了各大知名网站有关“怎样Inputbox输入 谁能教我做VB小游戏”的部分信息,请注意,文中的内容不代表本站的观点,不要相信任何联系方式。下文是关于“怎样Inputbox输入 谁能教我做VB小游戏”的一些信息:
问题:...了写你猜回答:这是一段码,希望对你有帮助Private Sub Command1_Click()Dim a, na = Int(Rnd * 4 + 1)n = Val(InputBox("你猜是哪个1 or 2 or 3 or 4"))If a = n Then MsgBox "恭喜你猜对了"Else MsgBox "你猜错了,下次努力"End IfEnd Sub 类似问题:vb电脑游戏编程:我想学电脑游戏编程有没有人可以给 250分()()那里有VB编写小游戏的教程? 求VB游戏开发教程 新手学VB游戏编程,有什麼好...... 问题:excel累加小技巧
回答:...窗口Personal.xls-Module1(Code)中的码更改为:Sub MyMacro( )OldValue = Val(ActiveCell.Value)InputValue = InputBox(输入数值,负数前输入减号,小小计算器)ActiveCell.Value = Val(OldValue+InputValue)End Sub(6).关闭Visual Basic器。完毕,你可以试试刚刚的宏,按下Shift+Ctrl+J键,输入数值并按下确定键。
问题:Excel统计出现次数、个数的VBA码
回答:...几个。码如下,是VBA宏码。Set myb = CreateObject(ing.dictionary): myb(数字) = 次数Set rng = Application.InputBox(选择要统计的区域:, Type:=8)ActiveSheet.Cells.Interior.ColorIndex = 0rng.Interior.ColorIndex = 3For Each rng1 In rngmyb(rng1.Value) = Application.WorksheetFunction.CountIf(rng, rng1)NextSet rng3 = Application.InputBox(选择结果输出地:, Type:=8)With rng3.Resize(myb.Count) = Application.Transpose(myb.keys).Offset(, 1).Resize(myb.Count) = Application.Tran...
问题:vba设置word图片格式
回答:...electionInlineShape ThenblnIsInlineShape = TrueSelection.InlineShapes(1).ConvertToShapeEnd IfDim intTurn As IntegerintTurn = InputBox(请输入图形要旋转的角度值 vbCrLf 正数表示顺时针,负数表示逆时针。, 图形旋转, 30)Selection.ShapeRange.IncrementRotation intTurnEnd Sub二、将文档中的每图片的版式转换为嵌入式图形For Each s In Documents(MyDoc.doc).ShapesIf s.Type = msoPicture Thens.ConvertToInlineShapeEnd IfNext s三、设置图片的高度宽度M...
问题:...了写你猜回答:这是一段码,希望对你有帮助Private Sub Command1_Click()Dim a, na = Int(Rnd * 4 + 1)n = Val(InputBox("你猜是哪个1 or 2 or 3 or 4"))If a = n Then MsgBox "恭喜你猜对了"Else MsgBox "你猜错了,下次努力"End IfEnd Sub 类似问题:vb电脑游戏编程:我想学电脑游戏编程有没有人可以给 250分()()那里有VB编写小游戏的教程? 求VB游戏开发教程 新手学VB游戏编程,有什麼好...... 问题:特殊符号快捷键怎样输入
回答:用智能ABC 按打出V1查找 类似问题:特殊符号的快捷输入 word特殊符号怎么用快捷键打 在穿越火线中打字怎么输入特殊符号?怎么快捷输入预先设置 在电子表格里想要用快捷键输入特殊符号怎样做 特殊符号快捷键怎样输入
问题:mc162输入补丁怎样用回答:EDITbin补丁怎样用 我来回答 匿名 该问题来自: 高清电脑国内最多人上的电脑,电脑有问题就到高清电脑。帮助 提意见 2014 SOGOU - 京 类似问题:MC162怎样多人联机 mc162输入补钉怎样用 谁有MC162的射击MOD? mc162整合包怎样用 MC162为什麽不能玩1玩就出现Java有误是不是已安装Java?... 问题:Windows 8 开发之上下文菜单右键属性的应用
回答:...码: &Grid Background=&{StaticResource ApplicationPageBackgroundThemeBrush}&&
&TextBox x:Name=&InputBox& Margin=&100,50,50,660& /&
&TextBox x:Name=&ContentText& Margin=
问题:怎样才能在Excel中输入005739
回答:我在Excel中输入005739,它会自动删除前面的00,可是我就要输入前面带0的数字,请问怎么输入?很简单,只要你在输入数字前先打开一个半角单引号,就是在英文输入状态下输入单引号,再输入你要的数字,就不会自动删除前面的00了。
问题:怎样在搜狗输入法中打特殊符号
回答:在搜狗输入法的蜡烛左边,像键盘一样的图标,用鼠标按右键,就可以输入楽 类似问题:这个符号怎么打出来 〆 这个字符在CF游戏里怎么打出来。我用搜狗拼音 Ctrl+Shift 音速;怎样在聊天框中用符号打出一个爱心图?? 怎样用搜狗直接打出符号,不用点符号框,直接拼音打出符号 搜狗拼音输入法如何输入特殊符号?
问题:我喜欢用智能ABC,为什么打字的时候,有部分字我按空格键,回答:智能ABC现在不够智能了,建议你换拼音、搜狗拼音等,绝对比智能ABC好用。要与时俱进啊。 类似问题:怎么修改默认输入法?我怎么修改?我想改成拼音。把搜 怎么能修改输入法的的默认设置有图, 怎么修改输入法默认的设置? 如何修改输入法默认 怎样修改默认输入法... 问题:WPS怎样快速输入生僻字
回答:快速输入生僻字具体方法:1、例如要输入昗,我们现在WPS文字中输入日,选中汉字,点击菜单栏--入--符号。2、将下方的来自选择为简体中文GB2312(十六进制)。3、此时会快速到日字。4、重新将来自选择为Unicode(十六进制),拖动滚动条,找到昗字即可,点击入就能在WPS文字中输入了。
问题:即出现一个下拉框,可供选择,别的数值输入进去就显示是值回答:这在Excel中是“数据/有效性”功能的体现。 数据有效性功能实现的作: 1.在表格不能涉及的位置建立序列表(如Z1:Z5); 2.选中输入数据的单元格区域; 3.执行“数据/有效性”,打开“数据有效性”对话框; 4.在对话框“设置”卡的“有效性条件”栏设置“允”“序列”、“”“=$Z$1:$Z$6”(不含外引号),并选中“...... 问题:在键盘上怎样输入省略号
回答:中文模式下 Shift+6 …… 类似问题:顿号和省略号在键盘上怎么打啊 省略号在键盘上怎么打啊? 谁知道在电脑键盘上如何输入省略号? 请问当我遇到省略号时在键盘上如何输入?使用五笔的, 在电脑键盘上如何输入省略号
分享给小伙伴们:
08-0708-1609-1508-07
09-1608-2809-1409-10
也许你感兴趣}

我要回帖

更多关于 delphi inputbox 的文章

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信