怎么在GUI窗口上添加作者版权信息

d12990 · 发表于 2012-2-12 00:49:04

本帖最后由 d12990 于 2012-2-12 00:55 编辑

加一段关于软件的介绍说明文字，加上一个代超链接的网址，下面是 2个按钮，点击分别在下面窗口显示网站www.a.com 和 www.b.com
哪位大神给个完整代码，谢谢。

不要说让我去看什么帮助文件，能看懂就不来这里了，没办法，脑子笨，只会捡现成的

lixiaolong · 发表于 2012-2-17 01:46:20

本帖最后由 lixiaolong 于 2012-2-17 01:48 编辑

回复 1# d12990

模仿上面的图~

#include<ie.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

$oIE = _IECreateEmbedded()
$Form1 = GUICreate("专用", 750, 550, -1, -3, $WS_SIZEBOX)
$B1 = GUICtrlCreateButton("百度", 5, 90, 58, 25)
$B2 = GUICtrlCreateButton("新浪", 65, 90, 58, 25)
GUICtrlCreateLabel("", 5, 10, 740, 3, $SS_ETCHEDHORZ)
GUICtrlCreateLabel("Don't say let me to see what help files, can understand will not come" & @CRLF & _
"here, can't, the brain stupid, will only pick up the ready-made", 10, 20)
GUICtrlCreateLabel("", 5, 80, 740, 3, $SS_ETCHEDHORZ)

$ClearEdit1 = GUICtrlCreateLabel("www.autoitx.com", 10, 57, 120)
GUICtrlSetFont($ClearEdit1, 10, 800)
GUICtrlSetColor($ClearEdit1, 0x000090)

$GUIActiveX = GUICtrlCreateObj($oIE, 0, 120, 1000, 1000)
GUISetState()

Local $hWndb, $sTafa = True, $sTafb = True

While 1
        $Pos = GUIGetCursorInfo($Form1)
        If Not @error Then _Hyperlink($Pos[4])

        $msg = GUIGetMsg()
        Select 
                        Case $msg = $GUI_EVENT_CLOSE
                                Exit
                        Case $msg = $b1
                                _IENavigate($oIE, "http://www.baidu.com")
                        Case $msg = $b2
                                _IENavigate($oIE, "http://www.sina.com.cn")
                        Case $msg = $ClearEdit1
                                ShellExecute("www.autoitx.com")
        EndSelect
WEnd

Func _Hyperlink($hWnda)
        If $hWnda = 8 Then
                If $sTafb = True Then
                        GUICtrlSetFont($hWnda, 10, 800, 4)
;~                         GUICtrlSetColor($hWnda, 0x0080CC)
                        $hWndb = $hWnda
                        $sTafb = False
                        $sTafa = False
                EndIf
        Else
                If $sTafa = False Then
                        GUICtrlSetFont($hWndb, 10, 800)
;~                         GUICtrlSetColor($hWndb, 0x000000)
                        $sTafa = True
                        $sTafb = True
                EndIf
        EndIf
EndFunc   ;==>_Hyperlink

pingfan5888 · 发表于 2012-2-17 21:38:31

分享支持。学习了。

epac · 发表于 2012-2-17 22:18:26

试下2楼的……

epac · 发表于 2012-2-17 22:18:35

试下2楼的……

d12990 · 发表于 2012-2-19 01:21:11

多谢2 楼大哥

au3fans2012 · 发表于 2012-2-19 11:02:09

回复 d12990

模仿上面的图~
lixiaolong 发表于 2012-2-17 01:46

效果不错,就是这个程序窗口和网页窗口都没有调节大小的功能啊　.打开网页只能看到一部分,

lixiaolong · 发表于 2012-2-19 11:29:50

回复 7# au3fans2012

这个很简单，试试这个.

#include<ie.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

$oIE = _IECreateEmbedded()
$Form1 = GUICreate("专用", 750, 550, -1, -3, $WS_SIZEBOX)
$B1 = GUICtrlCreateButton("百度", 5, 90, 58, 25)
$B2 = GUICtrlCreateButton("新浪", 65, 90, 58, 25)
GUICtrlCreateLabel("", 5, 10, 740, 3, $SS_ETCHEDHORZ)
GUICtrlCreateLabel("Don't say let me to see what help files, can understand will not come" & @CRLF & _
                "here, can't, the brain stupid, will only pick up the ready-made", 10, 20)
GUICtrlCreateLabel("", 5, 80, 740, 3, $SS_ETCHEDHORZ)

$ClearEdit1 = GUICtrlCreateLabel("www.autoitx.com", 10, 57, 120)
GUICtrlSetFont($ClearEdit1, 10, 800)
GUICtrlSetColor($ClearEdit1, 0x000090)

$GUIActiveX = GUICtrlCreateObj($oIE, 0, 120, 750, 550) ; GUICtrlCreateObj($oIE, 0, 120, 1000, 1000)==>GUICtrlCreateObj($oIE, 0, 120, 750, 550)
GUICtrlSetResizing(-1, 1) ;添加了GUICtrlSetResizing(按照新窗口的大小重新设置窗口大小和坐标.)
GUISetState()

Local $hWndb, $sTafa = True, $sTafb = True

While 1
        $Pos = GUIGetCursorInfo($Form1)
        If Not @error Then _Hyperlink($Pos[4])

        $msg = GUIGetMsg()
        Select
                Case $msg = $GUI_EVENT_CLOSE
                        Exit
                Case $msg = $B1
                        _IENavigate($oIE, "http://www.baidu.com")
                Case $msg = $B2
                        _IENavigate($oIE, "http://www.sina.com.cn")
                Case $msg = $ClearEdit1
                        ShellExecute("www.autoitx.com")
        EndSelect
WEnd

Func _Hyperlink($hWnda)
        If $hWnda = 8 Then
                If $sTafb = True Then
                        GUICtrlSetFont($hWnda, 10, 800, 4)
;~                      GUICtrlSetColor($hWnda, 0x0080CC)
                        $hWndb = $hWnda
                        $sTafb = False
                        $sTafa = False
                EndIf
        Else
                If $sTafa = False Then
                        GUICtrlSetFont($hWndb, 10, 800)
;~                      GUICtrlSetColor($hWndb, 0x000000)
                        $sTafa = True
                        $sTafb = True
                EndIf
        EndIf
EndFunc   ;==>_Hyperlink

au3fans2012 · 发表于 2012-2-21 21:48:29

回复 8# lixiaolong
这个比上一个好些,右侧多了一个滑动块,　但最好能做成像一般窗口一样,有最大化,最小化,效果会更好些.

lixiaolong · 发表于 2012-2-21 22:58:57

回复 9# au3fans2012

#include <StaticConstants.au3>下面添加 Opt("GUIResizeMode", 512)

; $WS_SIZEBOX 改为 0x00070000
$Form1 = GUICreate("专用", 750, 550, -1, -3, 0x00070000)

sd_netboy · 发表于 2012-2-22 14:38:18

如果能单击不同网址，实现不同窗口大小更加好！

即是这里：
$Form1 = GUICreate("专用", 750, 550, -1, -3, $WS_SIZEBOX)

能否实现不同网址不同大小呢？

shuangsexing · 发表于 2012-3-4 19:44:34

好东西，学习了

shuangsexing · 发表于 2012-3-4 19:44:53

devilma · 发表于 2012-3-9 00:05:10

跟着学习一下。。。谢谢2楼的兄弟

vason1019 · 发表于 2012-3-20 10:22:21

更新的双窗口

		自动登录	找回密码
密码			加入

[交流] 怎么在GUI窗口上添加作者版权信息

本帖子中包含更多资源

本帖子中包含更多资源

评分