Hallo eukalyptus,
die Funktion
_BASS_ChannelSetSync()
[/autoit] ist in der hier vorgestellten Version der Bass.au3 nicht vorhanden. Ich konnte sie auch nicht in der von BrettF im englischen Forum bereitgestellten Version der Bass.au3 finden.
Vielen Dank für Deine Hilfe
Hallo Scritch,
wenn Du grundsätzlich Probleme mit Arrays hast, hilft Dir vielleicht das Array-Tutorial von BugFix (http://www.bug-fix.info/array_tut.htm) weiter.
Hallo HobbyCoder,
vielleicht hilft Dir ja diese UDF von progandy weiter.
Hi,
ChrW erstellt ein UTF-16 Zeichen. Diese haben den Bereich 0x0000 bis 0xFFFF. Zeichen mit größerem Index werden auf 2 Zeichen aufgeteilt. Ich habe hier mal die passenden Funktion erstellt. natürlich muss die verwendete Schrift auch die Zeichen darstellen können, dafür hab ich mal FreeSerif verwendet:
Spoiler anzeigen
[autoit]AutoIt-Quellcode
[/autoit] [autoit][/autoit] [autoit][/autoit]
Func _ChrWEx($iCode)
If $iCode < 0 Or $iCode > 0x1D1FF Then Return SetError(1,0,"")
If $iCode < 0x10000 Then Return ChrW($iCode)
$iCode -= 0x10000
Return ChrW(BitOR( BitAND(BitShift($iCode, 10), 0x3FF), 0xD800)) & ChrW(BitOR( BitAND($iCode, 0x3FF), 0xDC00))
EndFunc
$x = ""
For $i = 119040 To 119261
$x &= _ChrWEx($i) & " "
Next
GUICreate("testGUI")
GUICtrlCreateLabel("Music: " & $x, 10, 10, 380, 300)
GUICtrlSetFont(-1, 20, 400, 0, "FreeSerif")
GUISetState()
Do Until GUIGetMsg()=-3PS: Die Schrift ist hier enthalten: ftp://ftp.gnu.org/pub/gnu/freefont/
weitere Schriften, die das Unterstüzen findest du hier (Abschnitt Musical Symbols fonts)
[ gelöst ] Mit Unicode Notenschriftzeichen ausgeben
Danke für Eure Antworten!
Ich setzte das Thema dann auf gelöst. So kann man einige Zeichen mehr verwenden.
Hast du schon getestet, ob es mit einer Variablen geht?
Heißt das, es ist mit AutoIt nicht möglich, diese Zeichen auszugeben?
Das wäre sicherlich mit
[autoit]ProcessExists()
[/autoit]und
[autoit]ProcessClose()
[/autoit]möglich.
Hallo liebe community!
Ich möchte Notenschriftzeichen (http://de.wikipedia.org/wiki/Unicode-B…nschriftzeichen) von meinem Programm über den Unicode so
For $i = 119040 To 119261
$Test = ChrW($i)
ConsoleWrite($Test)
If $Test = @error Then ExitLoop
Next
ausgeben lassen. Allerdings wird die Schleife sofort verlassen. Wenn man die letzte Zeile vor dem Next weglässt, erscheint nur ein leerer String.
Vielen Dank für Eure Hilfe!
Send()
[/autoit]Hallo!
Da Du den Message-Loop-Modus verwendest, musst Du sicherstellen, dass sich das Programm immer in der "richtigen" Schleife befindet.
Dazu solltest Du die Schleife verlassen, nachdem Du ein GUI-Fenster nicht mehr brauchst. So ist die gerade aktive GUI im Vordergrund immer "ansprechbar".
Danke für Eure Antworten!
Die Idee mit den Labels scheint die beste zu sein.
Hallo autoit-community!
Ich möchte auf Knopf- (bzw. Button-)druck zwei
ToolTip
[/autoit]s gleichzeitig anzeigen.
Mein Versuch (der leider nicht funktioniert) sieht so aus:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1 - Test", 200, 49)
$Button1 = GUICtrlCreateButton("Funktionen", 16, 16, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Beenden", 112, 16, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
BitAND(Call("_func1"), Call("_func2"))
Case $Button2
Exit
EndSwitch
WEnd
Func _func1 ()
While 1
ToolTip("func1", 900, 600)
If _IsPressed(09) Then Exit;09 = TAB
WEnd
EndFunc
Func _func2 ()
While 1
ToolTip("func2", 200, 600)
If _IsPressed(09) Then Exit;09 = TAB
WEnd
EndFunc
Nochmal vielen Dank!
Ist echt ne super Funktion!
Danke!
Deine abgeänderte Funktion funktioniert nur, solange alle Menüeinträge in einer Reihe sind. Das hier funktioniert nicht:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiMenu.au3>
#include <WinAPI.au3>
$hGui = GUICreate("MenuGUI", 400, 100)
For $izh = 0 To 10 Step 1
GUICtrlCreateMenu("Menu 1")
Next
GUISetState(@SW_SHOW)
$hMenu = _GUICtrlMenu_GetMenu($hGui)
for $i=0 to _GUICtrlMenu_GetItemCount($hMenu)
_GuiCtrlMenu_ItemBorder($hgui,$i,0xF000FE)
next
WinActivate($hGui)
[/autoit] [autoit][/autoit] [autoit]Do
$Msg = GUIGetMsg()
Until $Msg = $GUI_EVENT_CLOSE
Func _GuiCtrlMenu_ItemBorder($hGui, $iItem, $iColor, $iWidth = 2)
#cs ---------------------------------------------------------------
$hGui : Handle of menu's GUI.
iItem : Menu entry number, starting at 0 for the first entry.
$iColor : Border color (RGB).
$iWidth : Border width (pixel).
The color 0x010101 is reserved for transparent background color.
You have to include the UDF GuiMenu.au3.
#ce ---------------------------------------------------------------
Global $__GuiCtrlMenu_hBorder
Local Const $iBkColor = 0x010101
Local $hMenu, $MH, $I, $aPos, $X = 0, $W = 0, $H = 0, $aRes
If $iColor = $iBkColor Then
Return SetError(1, 1, 0)
EndIf
GUISetState(@SW_LOCK, $hGui)
;~ If IsHWnd($__GuiCtrlMenu_hBorder) And WinExists($__GuiCtrlMenu_hBorder) Then
;~ GuiDelete($__GuiCtrlMenu_hBorder)
;~ $_GuiCtrlMenu_hBorder = 0
;~ EndIf
$aRes = DllCall("user32.dll", "int", "GetSystemMetrics", "int", 15) ; $SM_CYMENU
$MH = $aRes[0]
For $I = 0 To $iItem
$aPos = _GUICtrlMenu_GetItemRect($hGui, _GUICtrlMenu_GetMenu($hGui), $I)
$X += $W
$W = $aPos[2] - $aPos[0]
$H = $aPos[3] - $aPos[1]
Next
$__GuiCtrlMenu_hBorder = GUICreate("", $W, $H, $X, -$MH, $WS_POPUP+$WS_DISABLED, $WS_EX_LAYERED+$WS_EX_MDICHILD, $hGui)
GUISetBkColor($iBkColor)
GUICtrlSetDefBkColor($iColor)
GUICtrlCreateLabel("", 0, 0, $W, $iWidth)
GUICtrlCreateLabel("", 0, 0, $iWidth, $H)
GUICtrlCreateLabel("", 0, $H - $iWidth, $W, $iWidth)
GUICtrlCreateLabel("", $W - $iWidth, 0, $iWidth, $W)
DllCall("user32.dll", "bool", "SetLayeredWindowAttributes", _
"hwnd", $__GuiCtrlMenu_hBorder, _
"dword", $iBkColor, _
"byte", 255, _
"dword", 0x3)
GUISetState()
GUISetState(@SW_UNLOCK, $hGui)
WinActivate($hGui)
Return 1
EndFunc
Kein Problem. Wir helfen ja gerne! 
Ich würde das mit
[autoit]#include<Misc.au3>
$dll = DllOpen("user32.dll")
_IsPressed(11, $dll) And _IsPressed(01, $dll)
machen.
Wenn ich Deine Funktion damit füttere passiert nichts.
Was mache ich falsch?
#include<GuiMenu.au3>
#include<GUIConstants.au3>
#include<WinAPI.au3>
#include<WindowsConstants.au3>
#include<GUIConstantsEx.au3>
$gui = GUICreate("Menü - Test")
$menu = GUICtrlCreateMenu("Test")
$menuitem = GUICtrlCreateMenuItem("Test", $menu)
GUISetState(@SW_SHOW)
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _GuiCtrlMenu_ItemBorder($hGui, $iItem, $iColor, $iWidth = 2)
$hGui = $gui
$iItem = $menu
$iColor = 0xFFFFFF
Ok. Vielen Dank für Eure Antworten.
Ich baue das dann in mein Script ein.
Ja, so habe ich mir das vorgestellt.
Geht das auch bei beiden Menüs?
Vielen Dank Bug Fix!
Ich dachte mir schon, dass es nicht gehen würde, aber eine Frage war es ja wert.
