【已解决】ToolTip综合问题肯求高手 ！
本帖最后由 touch_xu 于 2010-10-13 11:33 编辑希望能给个例子同时实现下列功能。
我想用ToolTiP 从读取TXT文件读取要显示的内容，但是如果内容太多影响美观请教大家：
1.如何果分行显示，要自动分行。
2.能否设置文字颜色，如何设置。
3.如何提示整点显示，不是指定时间，是每个整点都有提示。
4.如何让做ToolTiP提示从桌面右侧进入，再从右侧退出特效，如何制作。
如果仅是ToolTiP不行，GUI也好。
但是小还不会处理GUI的while 事件和要常驻内存的程序的关系求都一并处理，将十分感谢。While 1
Set()
;主程序
WEnd
;这个函数要整点运行。
Func Notice()
ToolTip("这儿要读TXT文件",@DesktopWidth-305,@DesktopHeight-125,"重要提示:",2)
Sleep(60 * 1000)
EndFunc 不大明白你问题的意思，能描述清楚些或上图描述吗？ 不大明白你问题的意思，能描述清楚些或上图描述吗？
水木子 发表于 2010-10-13 09:04 http://www.autoitx.com/images/common/back.gif
现在已经写清楚了，求教中，谢谢。 _FileReadToArray;用这个函数将文本按行读入数组，操作起来就简单方便了。 我还有好几个相关问题请求帮助，版主能否给个示例，谢谢 本帖最后由 liufenglg 于 2010-10-13 10:19 编辑
#include <array.au3>
#include <file.au3>
$a=_FileCountLines('xs.txt')
Local $aArray[$a+1]
_FileReadToArray('xs.txt',$aArray)
For $i=1 To $aArray
ToolTip($aArray[$i],@DesktopWidth-$i*10,@DesktopHeight/2)
Sleep(500)
Next 试下 试过了
1.回车后内容就不显示了第二行了
2.如何能指定字数,比如15个字一行。
3.请求能不能同时也帮助解决我别的请求。
我感觉写多个帖不是很有必要，但是不写高手们也不愿帮解答，呵呵 回复 7# touch_xu
试下这个，只实现了很简单的功能。
请自行扩展。
#include <array.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Local $String='当字号为18时的单行宽度'&@CRLF&'计算当前标签行高度'
$a=_stringSize($String,18,800,6,'宋体');待测试字符串，字体大小，字体重量（400 =缺省值），字体属性，字体名字
$left_top = @DesktopWidth - $a;@DesktopWidth - ($a+5)
$height=(@DesktopHeight-$a)/2;(@DesktopHeight-10-$a)/2
$form1 = GUICreate("form1",$a,$a ,$left_top, $height,BitOR($WS_POPUP, $WS_EX_TOOLWINDOW,$WS_EX_LAYERED));, BitOR($WS_EX_LAYERED, $WS_EX_TOOLWINDOW))
GUICtrlSetBkColor(-1, 0xff00ff)
GUICtrlCreateLabel($String,0,0,$a,$a)
GUICtrlSetBkColor(-1,0xff00ff)
GUICtrlSetFont(-1,18,800,6,'宋体');这里参数和_stringsize()参数保持一致
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$pos=WinGetPos($form1)
If $pos<@DesktopWidth Then
WinMove("form1","",$pos+10,$pos)
Sleep(500)
Else
ExitLoop
EndIf
WEnd
GUIDelete($form1)
Exit
#include-once
#cs
;以下代码来自官网
#ce
; #INDEX# ============================================================================================================
; Syntax ........: _StringSize($sText[, $iSize[, $iWeight[, $iAttrib[, $sName[, $iWidth]]]]])
; Parameters ....: $sText - string to display
; 要显示的字符串
; $iSize - Font size in points - default AutoIt GUI default
; [选项]：字体大小 - 默认AutoIt的GUI
; $iWeight - Font weight (400 = normal) - default AutoIt GUI default
; [选项]字体重量（400 =缺省值） - 默认AutoIt的GUI
; $iAttrib - Font attribute (0-Normal, 2-Italic, 4-Underline, 8 strike - default AutoIt
; [选项]字体属性（0正常，8粗体，2斜体，4下划线 - 默认AutoIt的）
; $sName - Font name - default AutoIt GUI default
; [选项]字体名称 - 默认AutoIt的GUI
; $iWidth- Width of rectangle - default is unwrapped width of string
; [选项]矩形的宽度
;======================================================================================================================
; 成功 - 返回对应文本的矩形数组：
; |$array = string formatted with @CRLF at required wrap points
; @ CRLF的格式化字符串必须的包点
; |$array = Height of single line in selected font
; 单行字体的高度
; |$array = Width of rectangle required to hold formatted string
; 宽度
; |$array = Height of rectangle required to hold formatted string
; 矩形的高度
; Failure - Returns 0 and sets @error:
; |1 - Incorrect parameter type (@extended = parameter index)
; |2 - Failure to create GUI to test label size
; |3 - DLL call error - extended set to indicate which
; |4 - Font too large for chosen width - longest word will not fit
; Author ........: Melba23
;=====================================================================================================================
Func _StringSize($sText, $iSize = Default, $iWeight = Default, $iAttrib = Default, $sName = Default, $iWidth = 0)
Local $avSize_Info, $aRet, $iLine_Width = 0, $iLast_Word, $iWrap_Count
Local $hLabel_Handle, $hFont, $hDC, $oFont, $tSize = DllStructCreate("int X;int Y")
If Number($sName) = -1 Then $sName=""
If Not IsString($sText) Then Return SetError(1, 1, 0)
If Not IsNumber($iSize) And $iSize <> Default Then Return SetError(1, 2, 0)
If Not IsInt($iWeight)And $iWeight <> Default Then Return SetError(1, 3, 0)
If Not IsInt($iAttrib)And $iAttrib <> Default Then Return SetError(1, 4, 0)
If Not IsString($sName) And $sName <> Default Then Return SetError(1, 5, 0)
If Not IsNumber($iWidth) Then Return SetError(1, 6, 0)
Local $hGUI = GUICreate("", 1200, 500, 10, 10)
If $hGUI = 0 Then Return SetError(2, 0, 0)
GUISetFont($iSize, $iWeight, $iAttrib, $sName)
$avSize_Info = $sText
If StringInStr($sText, @CRLF) = 0 Then StringRegExpReplace($sText, "[\x0a|\x0d]", @CRLF)
Local $asLines = StringSplit($sText, @CRLF, 1)
Local $hText_Label = GUICtrlCreateLabel($sText, 10, 10)
Local $aiPos = ControlGetPos($hGUI, "", $hText_Label)
GUISetState(@SW_HIDE)
GUICtrlDelete($hText_Label)
$avSize_Info = ($aiPos - 8)/ $asLines
$avSize_Info = $aiPos
$avSize_Info = $aiPos - 4
If $aiPos > $iWidth And $iWidth > 0 Then
$avSize_Info = ""
$avSize_Info = $iWidth
Local $iLine_Count = 0
For $j = 1 To $asLines
$hText_Label = GUICtrlCreateLabel($asLines[$j], 10, 10)
$aiPos = ControlGetPos($hGUI, "", $hText_Label)
GUICtrlDelete($hText_Label)
If $aiPos < $iWidth Then
$iLine_Count += 1
$avSize_Info &= $asLines[$j] & @CRLF
Else
$hText_Label = GUICtrlCreateLabel("", 0, 0)
$hLabel_Handle = ControlGetHandle($hGui, "", $hText_Label)
$aRet = DllCall("User32.dll", "hwnd", "GetDC", "hwnd", $hLabel_Handle)
If @error Then _StringSize_Error(3, 1, $hLabel_Handle, 0, $hGUI)
$hDC = $aRet
$aRet = DllCall("user32.dll", "lparam", "SendMessage", "hwnd", $hLabel_Handle, "int", 0x0031, "wparam", 0, "lparam", 0) ; $WM_GetFont
If @error Then _StringSize_Error(3, 2, $hLabel_Handle, $hDC, $hGUI)
$hFont = $aRet
$aRet = DllCall("GDI32.dll", "hwnd", "SelectObject", "hwnd", $hDC, "hwnd", $hFont)
If @error Then _StringSize_Error(3, 3, $hLabel_Handle, $hDC, $hGUI)
$oFont = $aRet
If $oFont = 0 Then _StringSize_Error(3, 4, $hLabel_Handle, $hDC, $hGUI)
$iWrap_Count = 0
While 1
$iLine_Width = 0
$iLast_Word = 0
For $i = 1 To StringLen($asLines[$j])
If StringMid($asLines[$j], $i, 1) = " " Then $iLast_Word = $i - 1
Local $sTest_Line = StringMid($asLines[$j], 1, $i)
GUICtrlSetData($hText_Label, $sTest_Line)
$iSize = StringLen($sTest_Line)
DllCall("GDI32.dll", "int", "GetTextExtentPoint32", "hwnd", $hDC, "str", $sTest_Line, "int", $iSize, "ptr", DllStructGetPtr($tSize))
If @error Then _StringSize_Error(3, 5, $hLabel_Handle, $hDC, $hGUI)
$iLine_Width = DllStructGetData($tSize, "X")
If $iLine_Width >= $iWidth - Int($iSize / 2) Then ExitLoop
Next
If $i > StringLen($asLines[$j]) Then
$iWrap_Count += 1
$avSize_Info &= $sTest_Line & @CRLF
ExitLoop
Else
$iWrap_Count += 1
If $iLast_Word = 0 Then
_StringSize_Error(4, 0, $hLabel_Handle, $hDC, $hGUI)
EndIf
$avSize_Info &= StringLeft($sTest_Line, $iLast_Word) & @CRLF
$asLines[$j] = StringTrimLeft($asLines[$j], $iLast_Word)
$asLines[$j] = StringStripWS($asLines[$j], 1)
EndIf
WEnd
$iLine_Count += $iWrap_Count
DllCall("User32.dll", "int", "ReleaseDC", "hwnd", $hLabel_Handle, "hwnd", $hDC)
If @error Then _StringSize_Error(3, 6, $hLabel_Handle, $hDC, $hGUI)
GUICtrlDelete($hText_Label)
EndIf
Next
$avSize_Info = ($iLine_Count * $avSize_Info) + 4
EndIf
GUIDelete($hGUI)
Return $avSize_Info
EndFunc ; => _StringSize
Func _StringSize_Error($iError, $iExtended, $hLabel_Handle, $hDC, $hGUI)
DllCall("User32.dll", "int", "ReleaseDC", "hwnd", $hLabel_Handle, "hwnd", $hDC)
GUIDelete($hGUI)
Return SetError($iError, $iExtended, 0)
EndFunc ; => _StringSize_Error
高手真是多啊,学习了.
页:
[1]