kinghu318 发表于 2012-2-8 14:55:38

回复 15# kinghu318 #include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <winapi.au3>
#include <GuiListView.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form1.kxf

$iStyle = bitOR($LVS_NOCOLUMNHEADER,$GUI_SS_DEFAULT_LISTVIEW)
$iExStyle = bitOR($LVS_EX_FULLROWSELECT, $WS_EX_CLIENTEDGE,$LVS_EX_FLATSB)

$Form1 = GUICreate("Form1", 795, 596, 191, 124)
$Tab1 = GUICtrlCreateTab(0, 56, 793, 449)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")


$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlSetState(-1,$GUI_SHOW)
$iListView = GUICtrlCreateListView(" ", 0, 74, 796, 430,$iStyle,$iExStyle)
$hListView = GUICtrlGetHandle(-1)



$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
$TabSheet5 = GUICtrlCreateTabItem("TabSheet5")
$TabSheet6 = GUICtrlCreateTabItem("TabSheet6")
$TabSheet7 = GUICtrlCreateTabItem("TabSheet7")
$TabSheet8 = GUICtrlCreateTabItem("TabSheet8")
$TabSheet9 = GUICtrlCreateTabItem("TabSheet9")
$TabSheet10 = GUICtrlCreateTabItem("TabSheet10")
$TabSheet11 = GUICtrlCreateTabItem("TabSheet11")
$TabSheet12 = GUICtrlCreateTabItem("TabSheet12")
GUICtrlCreateTabItem("")
add()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $msg=GUIGetMsg()
        Switch $msg
                Case $GUI_EVENT_CLOSE
                        Exit
                       
        EndSwitch
WEnd



Func add()
        For $i=0 To 6
                GUICtrlCreateCheckbox("Checkbox1", 16, 5+97*$i, 97, 17)
                _WinAPI_SetParent(GUICtrlGetHandle(-1), $hListView)
                GUICtrlCreateLabel("Label2", 32, 75+97*$i, 36, 17)
                _WinAPI_SetParent(GUICtrlGetHandle(-1), $hListView)
                GUICtrlCreateLabel("Label3", 120, 75+97*$i, 36, 17)
                _WinAPI_SetParent(GUICtrlGetHandle(-1), $hListView)
                GUICtrlCreateEdit("", 32, 30+97*$i, 753, 33, BitOR($ES_NOHIDESEL,$ES_WANTRETURN))
                GUICtrlSetData(-1, StringFormat("dwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwnwwwwwwwwwwwwwwww"))
                _WinAPI_SetParent(GUICtrlGetHandle(-1), $hListView)
                GUICtrlCreateLabel("", 3, 95+97*$i, 778, 3, $SS_ETCHEDHORZ)
                GUICtrlSetBkColor(-1, 0xACA899)
                _WinAPI_SetParent(GUICtrlGetHandle(-1), $hListView)
               
               
        Next
       
        For $i=0 To 80
                _GUICtrlListView_AddItem($hListView,"",$i)
        Next
EndFunc
我用p版的，下拉，内容变模糊了，这是什么原因啊？谢谢。。。。

kinghu318 发表于 2012-2-8 14:56:44

回复 14# afan
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <winapi.au3>
#include <GuiListView.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form1.kxf

$iStyle = bitOR($LVS_NOCOLUMNHEADER,$GUI_SS_DEFAULT_LISTVIEW)
$iExStyle = bitOR($LVS_EX_FULLROWSELECT, $WS_EX_CLIENTEDGE,$LVS_EX_FLATSB)

$Form1 = GUICreate("Form1", 795, 596, 191, 124)
$Tab1 = GUICtrlCreateTab(0, 56, 793, 449)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")


$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlSetState(-1,$GUI_SHOW)
$iListView = GUICtrlCreateListView(" ", 0, 74, 796, 430,$iStyle,$iExStyle)
$hListView = GUICtrlGetHandle(-1)



$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
$TabSheet5 = GUICtrlCreateTabItem("TabSheet5")
$TabSheet6 = GUICtrlCreateTabItem("TabSheet6")
$TabSheet7 = GUICtrlCreateTabItem("TabSheet7")
$TabSheet8 = GUICtrlCreateTabItem("TabSheet8")
$TabSheet9 = GUICtrlCreateTabItem("TabSheet9")
$TabSheet10 = GUICtrlCreateTabItem("TabSheet10")
$TabSheet11 = GUICtrlCreateTabItem("TabSheet11")
$TabSheet12 = GUICtrlCreateTabItem("TabSheet12")
GUICtrlCreateTabItem("")
add()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $msg=GUIGetMsg()
        Switch $msg
                Case $GUI_EVENT_CLOSE
                        Exit
                       
        EndSwitch
WEnd



Func add()
        For $i=0 To 6
                GUICtrlCreateCheckbox("Checkbox1", 16, 5+97*$i, 97, 17)
                _WinAPI_SetParent(GUICtrlGetHandle(-1), $hListView)
                GUICtrlCreateLabel("Label2", 32, 75+97*$i, 36, 17)
                _WinAPI_SetParent(GUICtrlGetHandle(-1), $hListView)
                GUICtrlCreateLabel("Label3", 120, 75+97*$i, 36, 17)
                _WinAPI_SetParent(GUICtrlGetHandle(-1), $hListView)
                GUICtrlCreateEdit("", 32, 30+97*$i, 753, 33, BitOR($ES_NOHIDESEL,$ES_WANTRETURN))
                GUICtrlSetData(-1, StringFormat("dwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwnwwwwwwwwwwwwwwww"))
                _WinAPI_SetParent(GUICtrlGetHandle(-1), $hListView)
                GUICtrlCreateLabel("", 3, 95+97*$i, 778, 3, $SS_ETCHEDHORZ)
                GUICtrlSetBkColor(-1, 0xACA899)
                _WinAPI_SetParent(GUICtrlGetHandle(-1), $hListView)
               
               
        Next
       
        For $i=0 To 80
                _GUICtrlListView_AddItem($hListView,"",$i)
        Next
EndFunc

我用p版的，下拉，内容变模糊了，这是什么原因啊？谢谢。。。。

kinghu318 发表于 2012-2-8 15:03:23

回复 18# afan


    非常感谢。。。

ndyzx 发表于 2012-2-9 11:38:44

回复 6# epac
取经的，谢谢。

au3fans2012 发表于 2012-2-10 21:30:09

回复 17# kinghu318

看了一下,应该是行距没设置好的原因吧,　就和word办公软件里面的行距太小,但字体太大一样的原因

至于如何改行距,或者改字体,就自己查吧,我是很新的手,呵.
页: 1 [2]
查看完整版本: 类似于软件列表形式，要用什么控件显示？