找回密码  加入

AUTOIT CN

搜索
查看: 339|回复: 19

号外::::::标签的使用方法没有变

[复制链接]
发表于 2018-8-19 21:20:24 | 显示全部楼层 |阅读模式
本帖最后由 绿色风 于 2018-8-19 22:20 编辑

还是  

中括号au3中括号

代码



中括号/au3中括号
 楼主| 发表于 2018-8-19 21:53:43 | 显示全部楼层
本帖最后由 绿色风 于 2018-8-19 22:03 编辑
  1. #include <array.au3>
  2. #include <IE.au3>
  3. #include <IEEx.au3>
  4. $oIE = _IEAttach
  5. $oIE1 = _IEFrameGetObjByName($oIE, "ifIndex") ;获取主页框架
  6. $oIE2 = _IEFrameGetObjByName($oIE1, "mainFrame") ;获取右铡框架
复制代码


 楼主| 发表于 2018-8-19 22:05:42 | 显示全部楼层
[pre]#include <array.au3>
#include <IE.au3>
#include <IEEx.au3>
$oIE = _IEAttach
$oIE1 = _IEFrameGetObjByName($oIE, "ifIndex") ;获取主页框架
$oIE2 = _IEFrameGetObjByName($oIE1, "mainFrame") ;获取右铡框架[/pre]

 楼主| 发表于 2018-8-19 22:07:18 | 显示全部楼层
本帖最后由 绿色风 于 2018-8-19 22:23 编辑
#include <Access.au3>
 #include 'MSSQL.au3'
 #include <GUIListView.au3>
 #include <GuiImageList.au3>
 #include <GUIConstantsEx.au3>
 #include <WindowsConstants.au3>

 Global $iIP = '127.0.0.1,1220' ; IP地址
Global $sUserName = 'sa' ; 连接帐号
Global $sPassWord = 'admin' ; 连接密码
Global $sDatabase = 'MYDB' ; 数据库名
Global $sTableName = 'TestTable1' ; 表名称

$sqlCon = _MSSQL_Con($iIP, $sUserName, $sPassWord, $sDatabase)

 GUICreate('MSSQL - 数据库操作例子', 800, 600)
 $ListView1 = GUICtrlCreateListView('ID|第一列|第二列|第三列|第四列|第五列', 5, 5, 790, 540, -1, _
                 BitOR($WS_EX_CLIENTEDGE, $LVS_EX_FULLROWSELECT, $LVS_REPORT))
 _GUICtrlListView_SetColumnWidth($ListView1, 0, 130)
 _GUICtrlListView_SetColumnWidth($ListView1, 1, 130)
 _GUICtrlListView_SetColumnWidth($ListView1, 2, 130)
 _GUICtrlListView_SetColumnWidth($ListView1, 3, 130)
 _GUICtrlListView_SetColumnWidth($ListView1, 4, 130)
 _GUICtrlListView_SetColumnWidth($ListView1, 5, 130)

 $hImage = _GUIImageList_Create(1, 25)
 _GUICtrlListView_SetImageList($ListView1, $hImage, 1)

 $Button1 = GUICtrlCreateButton('创建表', 10, 560, 100, 30, 0)
 $Button2 = GUICtrlCreateButton('写入数据', 130, 560, 100, 30, 0)
 $Button3 = GUICtrlCreateButton('读取数据', 250, 560, 100, 30, 0)
 $Button4 = GUICtrlCreateButton('更新数据', 370, 560, 100, 30, 0)
 $Button5 = GUICtrlCreateButton('删除数据', 490, 560, 100, 30, 0)
 $Button6 = GUICtrlCreateButton('查找数据', 610, 560, 100, 30, 0)
 GUISetState()

 While 1
         $nMsg = GUIGetMsg()
         Switch $nMsg
                 Case -3
                         ; 关闭数据库连接
                        _MSSQL_End($sqlCon)
                         Exit
                 Case $Button1
                         ; 在数据库中创建表的同时创建相应的列
                        _MSSQL_CreateTable($sqlCon, $sTableName, False, 'ID char(17),第一列 Text,第二列 Text,第三列 Text,第四列 Text,第五列 Text')

                 Case $Button2;写入
                        Local $aValue[6]
                         $aValue[0] = (@YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC)
                         $aValue[1] = '添加数据 - ' & Random(100, 999, 1)
                         $aValue[2] = '添加数据 - ' & Random(100, 999, 1)
                         $aValue[3] = '添加数据 - ' & Random(100, 999, 1)
                         $aValue[4] = '添加数据 - ' & Random(100, 999, 1)
                         $aValue[5] = '添加数据 - ' & Random(100, 999, 1)
                         
                         $sText = _ArrayToString($aValue)
                         GUICtrlCreateListViewItem($sText, $ListView1)
                         _MSSQL_AddRecord($sqlCon, $sTableName, $aValue)
                         
                 Case $Button3 ;读取
                        _MYSQL_ReadDataToList($sqlCon, $sTableName)

                         
                 Case $Button5 ;删除
                        $iIndex = GUICtrlRead($ListView1)
                         If $iIndex Then
                                 $sItemText = GUICtrlRead($iIndex)
                                 $iID = StringRegExpReplace($sItemText, '\|.+', '')
                                 GUICtrlDelete($iIndex)
                                 _MSSQL_DeleteRecord($sqlCon, $sTableName, $iID, 'ID')
                         EndIf
                         
                         
                 Case $Button4 ;更新
                        $iIndex = GUICtrlRead($ListView1)
                         If $iIndex Then
                                 $sItemText = GUICtrlRead($iIndex)
                                 $iID = StringRegExpReplace($sItemText, '\|.+', '')
                                 GUICtrlDelete($iIndex)
                                 $iNumber = (@YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC)
 ;~                                 _MSSQL_UpdateRecord($sqlCon, $sTableName, "ID", $sValue, "WHere ID = '" & $iID & "'")
                                 
                                 Local $aColumn[6] ; 需要更新数据的列名,位置与下面的更新的值对齐,数量必须相同。
                                $aColumn[0] = 'ID'
                                 $aColumn[1] = '第一列'
                                 $aColumn[2] = '第二列'
                                 $aColumn[3] = '第三列'
                                 $aColumn[4] = '第四列'
                                 $aColumn[5] = '第五列'
                                 
                                 Local $aNewValue[6] ; 新的数据,位置与上面的列对齐,数量必须相同。
                                $aNewValue[0] = $iNumber
                                 $aNewValue[1] = '更新数据 - ' & Random(100, 999, 1)
                                 $aNewValue[2] = '更新数据 - ' & Random(100, 999, 1)
                                 $aNewValue[3] = '更新数据 - ' & Random(100, 999, 1)
                                 $aNewValue[4] = '更新数据 - ' & Random(100, 999, 1)
                                 $aNewValue[5] = '更新数据 - ' & Random(100, 999, 1)
                                 
 ;~                                 $aNewValue[1] = Random(100, 9999, 1)
 ;~                                 $aNewValue[2] = Random(100, 9999, 1)
 ;~                                 $aNewValue[3] = Random(100, 9999, 1)
 ;~                                 $aNewValue[4] = Random(100, 9999, 1)
 ;~                                 $aNewValue[5] = Random(100, 9999, 1)                                
                                 
                                 _MSSQL_UpdateRecordEx($sqlCon, $sTableName, $aColumn, $aNewValue, $iID)
                                 _MYSQL_ReadDataToList($sqlCon, $sTableName)
                         EndIf
                 Case $Button6 ;查找
                        $aFindData = _MSSQL_GetRecord($sqlCon, $sTableName, '第五列', 'WHere ID = ' & "'580'")
                         _ArrayDisplay($aFindData)
         EndSwitch
 WEnd

 Func _MYSQL_ReadDataToList($sqlCon, $sTable)
         Local $sText
         _GUICtrlListView_BeginUpdate($ListView1)
         GUICtrlSendMsg($ListView1, 4105, 0, 0)
         $aRecord = _MSSQL_GetRecord($sqlCon, $sTable)
         For $i = 1 To UBound($aRecord) - 1
                 For $z = 0 To 5
                         $sText &= $aRecord[$i][$z] & '|'
                 Next
                 GUICtrlCreateListViewItem($sText, $ListView1)
                 $sText = ''
         Next
         _GUICtrlListView_EndUpdate($ListView1)
 EndFunc   ;==>_MYSQL_ReadDataToList
发表于 2018-8-19 22:13:02 | 显示全部楼层
颜色出来了
 楼主| 发表于 2018-8-19 22:25:27 | 显示全部楼层

方法没变
发表于 2018-8-19 22:26:47 | 显示全部楼层
颜色是出来了,但这有颜色区别不明显,看着点丑哇,死气沉沉,来点喜气,感觉背景色换城黑色就明显了
 楼主| 发表于 2018-8-19 22:30:36 | 显示全部楼层
繁星 发表于 2018-8-19 22:26
颜色是出来了,但这有颜色区别不明显,看着点丑哇,死气沉沉,来点喜气,感觉背景色换城黑色就明显了

那个要调调
发表于 2018-8-19 22:31:38 | 显示全部楼层
IE8 还是黑白…
发表于 2018-8-19 22:55:05 | 显示全部楼层
还是AU3旧版颜色区别最明显
发表于 2018-8-19 23:04:21 | 显示全部楼层
本帖最后由 chzj589 于 2018-8-19 23:15 编辑
#include <StaticConstants.au3>
#include <ColorConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPIEx.au3>
Opt("GUIOnEventMode", 1)
Global $Form2, $Label1, $Button, $Input1, $Input2, $Input3, $Input4
Global $aColorCode[16] = [0x000000, 0xFFFFFF, 0xF27D00, 0x009900, 0x00FFFF, 0xFF0000, 0xCBAC00, 0x8600FF, 0x00FF66, 0xFFFF00, 0xADD4FF, 0xFCDAD5, 0xC0C0C0, 0x2BD55E, 0x0000FF, 0xEEEEEE]
Global $aColorCode1[16] = [0xCCCCCC, 0x00FFFF, 0x241CED, 0xC9AEFF, 0x277FFF, 0x0EC9FF, 0x00F2FF, 0xB0E4EF, 0x4CB122, 0x1DE6B5, 0xE8A200, 0xEAD999, 0xCC483F, 0xBE9270, 0xA449A3, 0xE7BFC8]

Example()
While 1
        Sleep(1000)
WEnd
Func Example()
        $Form2 = GUICreate("窗体1", 413, 305, 302, 218)
        GUISetOnEvent($GUI_EVENT_CLOSE, "btnClose")
        $Label1 = GUICtrlCreateLabel("如何读取文字颜色和背景色?", 48, 88, 316, 33)
        GUICtrlSetBkColor($Label1, $COLOR_RED);0xFF0000)
        GUICtrlSetColor($Label1, 0x277FFF);0x990000)
        GUICtrlSetFont(-1, 16, 800, 0, 'Arial')
        GUICtrlSetOnEvent($Label1, "_RGB1")
        $Button = GUICtrlCreateButton("读取颜色", 30, 200, 70, 25)
        GUICtrlSetColor($Button, 0x990000)
        GUICtrlSetBkColor($Button, 0x277FFF)
        GUICtrlSetOnEvent($Button, "_RGB")
        $Input1 = GUICtrlCreateInput("标签文字背景颜色", 104, 200, 121, 21)
        $Input2 = GUICtrlCreateInput("标签文字前景颜色", 240, 200, 121, 21)
        $Input3 = GUICtrlCreateInput("标签文字背景颜色", 104, 230, 121, 21)
        $Input4 = GUICtrlCreateInput("标签文字前景颜色", 240, 230, 121, 21)
        GUISetState(@SW_SHOW)
EndFunc   ;==>Example
Func btnClose()
        GUIDelete()
        Exit
EndFunc   ;==>btnClose

“怪了大写还不行“



发表于 2018-8-19 23:08:02 | 显示全部楼层
本帖最后由 顽固不化 于 2018-8-19 23:11 编辑

原来代码复制后粘贴到编辑器里,每行的前导空格或者tab,都会变成“?”。只有粘贴到word里,然后再拷一次沾到编辑器里。
发表于 2018-8-19 23:13:55 | 显示全部楼层
顽固不化 发表于 2018-8-19 23:08
原来代码复制后粘贴到编辑器里,每行的前导空格或者tab,都会变成“?”。只有粘贴到word里,然后再拷一次 ...

pm 你了      
发表于 2018-8-19 23:28:47 | 显示全部楼层

老大收到。很给力!
发表于 2018-8-20 09:01:34 | 显示全部楼层
测试看看
 msgbox (0,"1","2")
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2018-10-20 07:02 , Processed in 0.100503 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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