l4ever 发表于 2009-6-9 13:54:32

明白明白.谢谢

kn007 发表于 2009-6-9 14:06:24

学习下。。。。

netegg 发表于 2009-6-9 15:39:04

不用你的源码，就是把那个需要变色的地方，自己再做个小家伙发上来就行，不是就是想知道怎么改吗，要源码也没用

pcbar 发表于 2009-6-9 20:29:30

:face (29):
呵呵，我研究过


guirichedit.au3来自官网

kn007 发表于 2009-6-9 20:36:01

呀，不错啊，留名

jhun 发表于 2009-6-10 18:02:07

:face (29):
呵呵，我研究过
3943

guirichedit.au3来自官网
pcbar 发表于 2009-6-9 20:29 http://www.autoitx.com/images/common/back.gif
有高人给出答案，那我就不献丑了

ndyndy 发表于 2009-8-19 10:46:46

txt文件不行，我在word文档里试过可行，用于交换机的检查

ndyndy 发表于 2009-8-19 10:52:34

_FileReadToArray($file_name,$aArray2)
    $lion=""
    $er=0   
    For $l=$t to $e
      $lion4=StringInStr($aArray2[$l], "errors")
      $lion1=StringInStr($aArray2[$l], "critical")
      $lion2=StringInStr($aArray2[$l], "alerts")
      $lion3=StringInStr($aArray2[$l], "cemergencies")      
            
      if $lion4 <> 0 or $lion1 <> 0 or $lion2 <> 0or$lion3 <> 0 Then
             $f=1            
             $errors[$b]=$l-$t+1+37
             $b=$b+1
      endif
         $lion= $lion & $aArray2[$l] & @CRLF      
   Next
      if $f=1 Then
          Msgbox(16,'注意', 'Sh logging 有错误信息',5)         
          $objTable.Cell(12,1).Range.Text = "内容信息： " & @crlf         
          $objTable.Cell(12, 1).Range.InsertAfter ($lion)         
      Endif

      for $g=1 to $b-1
         with $oDoc.paragraphs.item($errors[$g])
                   .range.font.color=255
         EndWith
      next

ahcoke 发表于 2012-9-24 18:04:30

这帖内容值得学习，赞一个

行者靖 发表于 2016-10-7 22:28:25

感谢分享，谢谢。。
页: 1 [2]
查看完整版本: GUICtrlCreateEdit 怎么显示其中一行为红色?