木纳 发表于 2008-5-14 15:41:59

求给GUI图片加个超级链接.

#include <GuiConstantsEX.au3>
#include <GDIPlus.au3>
#include "resources.au3"
#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Global $hGui, $iExt
Global $hPic, $hImage, $hGraphic

_GDIPlus_Startup()


$hGui = GUICreate("Form1", @DesktopWidth - 1000, @DesktopHeight - 700, -1, -1, $ws_popup)
$hPic = GUICtrlCreatePic("image2.bmp", 25, 25, 300, 200)
GUISetState()


While 1
        $msg = GUIGetMsg()
        Switch $msg
                $OpenFile = FileOpenDialog("Select image file", "", "image(*.png)")
                _GUICtrlStatic_SetPicture($OpenFile, $hPic)
                Case $GUI_EVENT_CLOSE
                        ExitLoop
        EndSwitch
WEnd

Func _GUICtrlStatic_SetPicture($File, $CtrlId)
        $hImage = _GDIPlus_ImageLoadFromFile($File)
        $hScrDC = _WinAPI_GetDC(0)
        $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
        $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
        GUICtrlSetImage($CtrlId, "")
        _SetBitmapToCtrl($CtrlId, $hBitmap)
EndFunc   ;==>_GUICtrlStatic_SetPicture




image2.bmp这个图倒是能显示出来了,现在想做这个选择点击一下图片，弹出另一个IE窗口.

大家多多指教

[ 本帖最后由 木纳 于 2008-5-15 16:02 编辑 ]

gto250 发表于 2008-5-14 22:22:59

加这么一句
Case $hPic
ShellExecute ( "iexplore.exe" , "http://www.autoitx.com")

马甲 发表于 2008-5-14 23:47:25

ShellExecute ("http://www.autoitx.com")

这样就可以了

javarike 发表于 2009-3-2 00:14:00

路过再支持一下了.

omegabomb 发表于 2009-8-27 00:10:16

进来学习下
页: [1]
查看完整版本: 求给GUI图片加个超级链接.