论坛 › 『 提问交流 』 › 分页标签内容超出，怎么使内容在标签内

boliang 发表于 2013-8-8 19:44:45

分页标签内容超出，怎么使内容在标签内

怎么实现上下滚动显示标签内界面，谢谢

boliang 发表于 2013-8-8 22:14:43

有没热心人在呢，看帮助文件找不出来了

xz00311 发表于 2013-8-10 09:18:33

把源码放上才知道你那里错了谢谢

boliang 发表于 2013-8-10 13:41:53

多谢XZ回复，这个问题刚刚搞好，现在是在每行ListView上添加不了button，盼复！#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListBox.au3>
#include <GuiListview.au3>
#include <WinAPI.au3>
#include <GuiImageList.au3>

#Region ### START Koda GUI section ### Form=d:\autotestsystem\分页.kxf
Local $TabSheet1, $Listview, $hImage, $hListView, $hHeader
$Form1 = GUICreate("Form1", 628, 451, 192, 124)
;GUISetFont(8, 800, 0, "MS Sans Serif")
$Tab1 = GUICtrlCreateTab(8, 48, 601, 369)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$TabSheet1 = GUICtrlCreateTabItem(" 程序出错")
$ListView = GUICtrlCreateListView("程序出错图片|程序出错提示|智能修复", 12, 75, 593, 337)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 245)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 225)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 115)
GUICtrlSendMsg($ListView, $LVM_SETEXTENDEDListviewSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)

; 加载图片
$hImage = _GUIImageList_Create(240, 70)
_GUIImageList_AddBitmap($hImage, "A.bmp")
_GUIImageList_AddBitmap($hImage, "B.bmp")
_GUIImageList_AddBitmap($hImage, "C.bmp")
_GUIImageList_AddBitmap($hImage, "D.bmp")
_GUICtrlListView_SetImageList($Listview, $hImage, 1)

; 添加提示语
_GUICtrlListView_AddItem($Listview, "", 0, 1)
_GUICtrlListView_AddSubItem($Listview, 0, '提示语', 1, 1)
_GUICtrlListView_AddItem($Listview, "", 1, 2)
_GUICtrlListView_AddSubItem($Listview, 1, "提示语", 1, 1)
_GUICtrlListView_AddItem($Listview, "", 2, 2);如果要添加第三张图
_GUICtrlListView_AddSubItem($listview, 2, "提示语", 1, 1);如果要添加第三张图
_GUICtrlListView_AddItem($Listview, "", 3, 2)
_GUICtrlListView_AddSubItem($Listview, 3, '提示语', 1, 1)

;添加按钮
;_GUICtrlListView_InsertColumn($hListView, 0, "", 0)

$TabSheet2 = GUICtrlCreateTabItem("驱动故障")
$TabSheet3 = GUICtrlCreateTabItem("专业软件")
$TabSheet4 = GUICtrlCreateTabItem("缺省文件")
$TabSheet5 = GUICtrlCreateTabItem("证书报错")
$TabSheet6 = GUICtrlCreateTabItem("其它问题")

GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd回复 3# xz00311

boliang 发表于 2013-8-11 16:32:57

回复 4# boliang

hi!xz,在线等你哦！

查看完整版本: 分页标签内容超出，怎么使内容在标签内