找回密码  加入

AUTOIT CN

搜索
查看: 692|回复: 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 编辑
  1. #include <Access.au3>
  2. #include 'MSSQL.au3'
  3. #include <GUIListView.au3>
  4. #include <GuiImageList.au3>
  5. #include <GUIConstantsEx.au3>
  6. #include <WindowsConstants.au3>

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

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

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

  22. $hImage = _GUIImageList_Create(1, 25)
  23. _GUICtrlListView_SetImageList($ListView1, $hImage, 1)

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

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

  41.                  Case $Button2;写入
  42.                         Local $aValue[6]
  43.                          $aValue[0] = (@YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC)
  44.                          $aValue[1] = '添加数据 - ' & Random(100, 999, 1)
  45.                          $aValue[2] = '添加数据 - ' & Random(100, 999, 1)
  46.                          $aValue[3] = '添加数据 - ' & Random(100, 999, 1)
  47.                          $aValue[4] = '添加数据 - ' & Random(100, 999, 1)
  48.                          $aValue[5] = '添加数据 - ' & Random(100, 999, 1)
  49.                         
  50.                          $sText = _ArrayToString($aValue)
  51.                          GUICtrlCreateListViewItem($sText, $ListView1)
  52.                          _MSSQL_AddRecord($sqlCon, $sTableName, $aValue)
  53.                         
  54.                  Case $Button3 ;读取
  55.                         _MYSQL_ReadDataToList($sqlCon, $sTableName)

  56.                         
  57.                  Case $Button5 ;删除
  58.                         $iIndex = GUICtrlRead($ListView1)
  59.                          If $iIndex Then
  60.                                  $sItemText = GUICtrlRead($iIndex)
  61.                                  $iID = StringRegExpReplace($sItemText, '\|.+', '')
  62.                                  GUICtrlDelete($iIndex)
  63.                                  _MSSQL_DeleteRecord($sqlCon, $sTableName, $iID, 'ID')
  64.                          EndIf
  65.                         
  66.                         
  67.                  Case $Button4 ;更新
  68.                         $iIndex = GUICtrlRead($ListView1)
  69.                          If $iIndex Then
  70.                                  $sItemText = GUICtrlRead($iIndex)
  71.                                  $iID = StringRegExpReplace($sItemText, '\|.+', '')
  72.                                  GUICtrlDelete($iIndex)
  73.                                  $iNumber = (@YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC)
  74. ;~                                 _MSSQL_UpdateRecord($sqlCon, $sTableName, "ID", $sValue, "WHere ID = '" & $iID & "'")
  75.                                  
  76.                                  Local $aColumn[6] ; 需要更新数据的列名,位置与下面的更新的值对齐,数量必须相同。
  77.                                 $aColumn[0] = 'ID'
  78.                                  $aColumn[1] = '第一列'
  79.                                  $aColumn[2] = '第二列'
  80.                                  $aColumn[3] = '第三列'
  81.                                  $aColumn[4] = '第四列'
  82.                                  $aColumn[5] = '第五列'
  83.                                  
  84.                                  Local $aNewValue[6] ; 新的数据,位置与上面的列对齐,数量必须相同。
  85.                                 $aNewValue[0] = $iNumber
  86.                                  $aNewValue[1] = '更新数据 - ' & Random(100, 999, 1)
  87.                                  $aNewValue[2] = '更新数据 - ' & Random(100, 999, 1)
  88.                                  $aNewValue[3] = '更新数据 - ' & Random(100, 999, 1)
  89.                                  $aNewValue[4] = '更新数据 - ' & Random(100, 999, 1)
  90.                                  $aNewValue[5] = '更新数据 - ' & Random(100, 999, 1)
  91.                                  
  92. ;~                                 $aNewValue[1] = Random(100, 9999, 1)
  93. ;~                                 $aNewValue[2] = Random(100, 9999, 1)
  94. ;~                                 $aNewValue[3] = Random(100, 9999, 1)
  95. ;~                                 $aNewValue[4] = Random(100, 9999, 1)
  96. ;~                                 $aNewValue[5] = Random(100, 9999, 1)                                
  97.                                  
  98.                                  _MSSQL_UpdateRecordEx($sqlCon, $sTableName, $aColumn, $aNewValue, $iID)
  99.                                  _MYSQL_ReadDataToList($sqlCon, $sTableName)
  100.                          EndIf
  101.                  Case $Button6 ;查找
  102.                         $aFindData = _MSSQL_GetRecord($sqlCon, $sTableName, '第五列', 'WHere ID = ' & "'580'")
  103.                          _ArrayDisplay($aFindData)
  104.          EndSwitch
  105. WEnd

  106. Func _MYSQL_ReadDataToList($sqlCon, $sTable)
  107.          Local $sText
  108.          _GUICtrlListView_BeginUpdate($ListView1)
  109.          GUICtrlSendMsg($ListView1, 4105, 0, 0)
  110.          $aRecord = _MSSQL_GetRecord($sqlCon, $sTable)
  111.          For $i = 1 To UBound($aRecord) - 1
  112.                  For $z = 0 To 5
  113.                          $sText &= $aRecord[$i][$z] & '|'
  114.                  Next
  115.                  GUICtrlCreateListViewItem($sText, $ListView1)
  116.                  $sText = ''
  117.          Next
  118.          _GUICtrlListView_EndUpdate($ListView1)
  119. 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 编辑

  1. #include <StaticConstants.au3>
  2. #include <ColorConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <WindowsConstants.au3>
  5. #include <WinAPIEx.au3>
  6. Opt("GUIOnEventMode", 1)
  7. Global $Form2, $Label1, $Button, $Input1, $Input2, $Input3, $Input4
  8. Global $aColorCode[16] = [0x000000, 0xFFFFFF, 0xF27D00, 0x009900, 0x00FFFF, 0xFF0000, 0xCBAC00, 0x8600FF, 0x00FF66, 0xFFFF00, 0xADD4FF, 0xFCDAD5, 0xC0C0C0, 0x2BD55E, 0x0000FF, 0xEEEEEE]
  9. Global $aColorCode1[16] = [0xCCCCCC, 0x00FFFF, 0x241CED, 0xC9AEFF, 0x277FFF, 0x0EC9FF, 0x00F2FF, 0xB0E4EF, 0x4CB122, 0x1DE6B5, 0xE8A200, 0xEAD999, 0xCC483F, 0xBE9270, 0xA449A3, 0xE7BFC8]

  10. Example()
  11. While 1
  12.         Sleep(1000)
  13. WEnd
  14. Func Example()
  15.         $Form2 = GUICreate("窗体1", 413, 305, 302, 218)
  16.         GUISetOnEvent($GUI_EVENT_CLOSE, "btnClose")
  17.         $Label1 = GUICtrlCreateLabel("如何读取文字颜色和背景色?", 48, 88, 316, 33)
  18.         GUICtrlSetBkColor($Label1, $COLOR_RED);0xFF0000)
  19.         GUICtrlSetColor($Label1, 0x277FFF);0x990000)
  20.         GUICtrlSetFont(-1, 16, 800, 0, 'Arial')
  21.         GUICtrlSetOnEvent($Label1, "_RGB1")
  22.         $Button = GUICtrlCreateButton("读取颜色", 30, 200, 70, 25)
  23.         GUICtrlSetColor($Button, 0x990000)
  24.         GUICtrlSetBkColor($Button, 0x277FFF)
  25.         GUICtrlSetOnEvent($Button, "_RGB")
  26.         $Input1 = GUICtrlCreateInput("标签文字背景颜色", 104, 200, 121, 21)
  27.         $Input2 = GUICtrlCreateInput("标签文字前景颜色", 240, 200, 121, 21)
  28.         $Input3 = GUICtrlCreateInput("标签文字背景颜色", 104, 230, 121, 21)
  29.         $Input4 = GUICtrlCreateInput("标签文字前景颜色", 240, 230, 121, 21)
  30.         GUISetState(@SW_SHOW)
  31. EndFunc   ;==>Example
  32. Func btnClose()
  33.         GUIDelete()
  34.         Exit
  35. EndFunc   ;==>btnClose
复制代码


  1. “怪了大写还不行“
复制代码



发表于 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 | 显示全部楼层
测试看看
  1. msgbox (0,"1","2")
复制代码
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2019-5-26 06:18 , Processed in 0.062500 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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