找回密码
 加入
搜索
查看: 6557|回复: 13

[GUI管理] 如何将两个inputbox放在一个界面啊?

  [复制链接]
发表于 2012-10-31 09:37:31 | 显示全部楼层 |阅读模式
我想将两个inputbox 内容放在一个界面里面,但是在GUI中找不到相关函数能实现啊?哪位高手给我指点下啊?
比如
Dim $gname
Dim $rname

$gnames = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization")

$rnames = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOwner")

$gname = InputBox("修改","公司名,可以留空,当前是:"&$gnames,"公司")

$rname = InputBox("修改","用户名,不可留空,当前是:"&$rnames,"用户")

Select

        Case $rname = ""

        MsgBox(0,"修改","用户不能为空")

EndSelect

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization","REG_SZ",$gname)

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOwner","REG_SZ",$rname)

MsgBox(0,"修改","修改成功")



如何将以上两个窗口合并成一个呢
 楼主| 发表于 2012-10-31 10:38:30 | 显示全部楼层
帖子发了两次,请版主帮我删掉一个。谢谢
发表于 2012-10-31 10:48:01 | 显示全部楼层
没弄清你想表达的意思
发表于 2012-10-31 11:12:34 | 显示全部楼层
本帖最后由 netegg 于 2012-10-31 13:04 编辑

inputbox本身就只有一个输入控件,自己建个gui,或者用其他的对话框api来模拟,不过这样做的结果是什么样就不知道了,再就是自己重建编辑框结构
对了,还有一种方式,间接可以实现,仍然是两个gui,一个无边框的子gui固定到主gui上,不过这样必须hook到inputbox的句柄才行

最简单的做两个edit不是就完了,何必非要input,有什么区别吗?
 楼主| 发表于 2012-10-31 15:01:37 | 显示全部楼层
我的目的是给出一个GUI对话框,我事先填写好我的信息,然后GUI上面点击确定,然后我输入的信息在自动导入到我的脚本里面。。。这个是我最后想实现的结果。
但是似乎第一步我就没做通。netegg专家  说的方法我一会试下。
发表于 2012-10-31 15:49:42 | 显示全部楼层
回复 6# fanxiang_1984

不会是这样吧??
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 233, 47, 192, 124)
$Input1 = GUICtrlCreateInput("", 0, 0, 169, 21)
GUICtrlSetTip(-1,'input something,please!')
$Input2 = GUICtrlCreateInput("", 0, 24, 169, 21)
GUICtrlSetTip(-1,'input something,please!')
$Button1 = GUICtrlCreateButton("确定", 176, 8, 49, 33,1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        MsgBox(0,'输入的信息:',GUICtrlRead($Input1)&@CRLF&GUICtrlRead($Input2))
        EndSwitch
WEnd
 楼主| 发表于 2012-10-31 17:12:02 | 显示全部楼层
嗯,效果达到了,这里实现了两行,我试下多行看是否可行。
非常感谢。
 楼主| 发表于 2012-10-31 17:16:31 | 显示全部楼层
不行啊,两行这种我在论坛找到办法了。但是三行以上我就不行了,我想弄到三行以上的数据啊。。
发表于 2012-10-31 17:59:21 | 显示全部楼层
回复 9# fanxiang_1984


   
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 233, 410, 192, 124)
For $i=0 To 19
        GUICtrlCreateInput('', 0, $i*20, 169, 21)
Next

$Button1 = GUICtrlCreateButton("确定", 176, 8, 49, 33,1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $str=''
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        $str=''
                        For $i=1 To 20
                                $str&='第'&$i&'个输入框的信息是:'&GUICtrlRead($i+2)&@CRLF
                        Next
                        
                        MsgBox(0,'输入的信息:',$str)
        EndSwitch
WEnd
发表于 2012-10-31 18:00:34 | 显示全部楼层
气死我了,lz就是想要一个gui上多个输入控件呀?那和inputbox有什么关系?
 楼主| 发表于 2012-10-31 18:07:54 | 显示全部楼层
回复 11# netegg

我最终想要的就是在GUI中多个类似与inputbox的框格,可以向框格里面填写VALUE,然后这个VALUE值会自动赋予到另外个一个脚本中。开始以为inputbox 可以做成多个,发现似乎不可行,就在寻找GUI方式了。但是一直没有找到啊。

可能是我没说清楚。。。。sorry.
发表于 2012-10-31 18:20:09 | 显示全部楼层
回复 11# netegg

很多人都是需要别人去猜他的问题,看完后还需要再回去学习小学语文~~

呵呵~~
 楼主| 发表于 2012-10-31 19:22:18 | 显示全部楼层
知识太薄弱,要做东西,还没人指导
发表于 2012-10-31 19:29:51 | 显示全部楼层
回复 11# netegg


    蛋兄,要淡定!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-17 16:38 , Processed in 0.084417 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表