Ist ne sehr einfache, kurze UDF zum erstellen von Vertikalen Labels.
Funktion: _vlabel($s_text[,$i_pos_x = -1[,$i_pos_y = -1[, $i_size_w = -1[, $i_size_h = -1 [, $v_stile = ""[, $v_exstile = ""]]]]]])
Erstellt ein neues Label mit vertikaler Schrift.
Beispiel:
Spoiler anzeigen
#include <vlabel.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$Label1 = _vlabel("Label15", 216, 160)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
_vertical_label.au3 :
Spoiler anzeigen
#include-once
[/autoit] [autoit][/autoit] [autoit]Local $s_text,$i_pos_x ,$i_pos_y , $i_size_w , $i_size_h , $v_stile , $v_exstile
[/autoit] [autoit][/autoit] [autoit]; #FUNCTION# ===================================================================
; Name ..........: _vlabel
; Description ...: Erstellt ein vertikales Label
; AutoIt Version : V3.3.4.0
; Syntax ........: _vlabel($s_text[,$i_pos_x = -1[,$i_pos_y = -1[, $i_size_w = -1[, $i_size_h = -1 [, $v_stile = ""[, $v_exstile = ""]]]]]])
; Parameter(s): .: $s_text - String: Der Beschriftungstext.
; $i_pos_y - Optional ; Int: Die linke Seite des Controls. Wird -1 verwendet, dann wird left mit Hilfe von GUICoordMode berechnet.
; $i_pos_x - Optional ; Int: Die Oberkante des Controls. Wird -1 verwendet, dann wird top mit Hilfe von GUICoordMode berechnet.
; $i_size_w - Optional ; Int: Die Breite des Controls (voreingestellt ist die zuvor verwendete Breite).
; $i_size_h - Optional ; Int: Die Höhe des Controls (voreingestellt ist die zuvor verwendete Höhe).
; $v_stile - Optional: Legt den Stil des Controls fest.
; $v_exstile - Optional: Legt den erweiterten Stil des Controls fest.
; Return Value ..: Success - Gibt die Identifikationsnummer (Control-ID) des neuen Controls zurück.
; Failure - 0
; @ERROR -
; Author(s) .....: Cartan12
; Date ..........: Freitag, 29. Januar 2010
; Link ..........:
; Related .......:
; Example .......: No
; ==============================================================================
Func _vlabel($s_text,$i_pos_x = -1,$i_pos_y = -1, $i_size_w = -1, $i_size_h = -1 , $v_stile = "", $v_exstile = "")
Local $i, $v_string2, $v_label
$s_text = StringSplit($s_text,"")
For $i = 1 To $s_text[0]
If $i = $s_text[0] Then
$v_string2 = $v_string2 & $s_text[$i]
Else
$v_string2 = $v_string2 & $s_text[$i] & @CRLF
EndIf
Next
$v_label = GUICtrlCreateLabel($v_string2,$i_pos_x,$i_pos_y,$i_size_w,$i_size_h,$v_stile,$v_exstile)
If $v_label == 0 Then Return 0
Return $v_label
EndFunc
(Feedback ist erwünscht ^^)
edit: Funktion wurde in _vlabel umbenannt.