Upsala, hab mein Beispiel vergessen, ahbe es in Post 1 Hinzugefügt
Beiträge von Jam00
-
-
Hi Leute,
Ich hab wieder mal eine Frage,
Ist es Irgendwie möglich diesem Tab noch ein Element hinzuzufügen? Denn so wie ich es da gemacht hab wird es ja nicht im Tab registiriert, das ist ja auch klar, nur wie kann man das machen?Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$Form2 = GUICreate("Form2", 405, 294, 302, 218)
$Tab1 = GUICtrlCreateTab(2, 2, 399, 193)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("neune Text einfügen", 150, 198, 117, 25, $WS_GROUP)
$Combo1 = GUICtrlCreateCombo("", 2, 200, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "TabSheet1|TabSheet2")
$Input1 = GUICtrlCreateInput("Input1", 2, 226, 397, 21)
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlCreateLabel (GUICtrlRead ($Input1),20,100)
EndSwitch
WEndDanke im voraus
-
Oki, danke geht alles
-
GtaSpider
Ich kann nicht nach regex ip googlen wenn ich nicht weiß das ich es mit reges machen kann!funkey
Super danke, so soll es sein.Da hab ich schon wieder eine Frage. Kann ich irgendwie eine DNS auflösen? Also das ich die IP der DNS bekomme, weil mit TCP geht nur die richtige IP nicht eine DNS. Ich habe es schon mit _InetGetSource probier und mit INetGet aber hat nichts funktioniert.
Ich habe für Testzweke mal eine DNS eingerichtet die nicht auf meinen PC führt sondern den wert 10.1.2.1 hat autoit.no-ip.biz -
@Reaker
Es geht ja nich um die IP meines PCsfunkey
okay, erde ich mal porbieren
hab allerdings noch nie was damit gemacht, mal sehen ob ich es hinbekomme -
Moin,
Beim Letzten mal konnte mir ja leider nicht so wirklich geholfen werden, ich hoffe das es jetzt besser läuft. Diesmal sit es auch ganz einfach. Gibt es sowas wie IsIP ($IP)? Es soll halbt prüfen ob eine Variable ein IP enthält, nichts weiter.
Danke im Voraus
-
Kann mir keiner Helfen?
-
Man kann ja mal gucken welche Funcs man dafür braucht, aus der Beta und die dann einfach in die Alte reinkopieren und gucken ob dann alles noch in ordnung ist, ich guck mir mal die Beta an und schreib alle funcs raus die was mit srollen zu tun haben
EDIT:
Ich hab die Gefunden -
Ich hab es jetzt so gemacht
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>
#include <WinAPI.au3>
#include <Constants.au3>HotKeySet ("{Down}","_ScrollDown")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet ("{Up}","_ScrollUp")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form2", 414, 502, 303, 219)
GUISetBkColor (0x0000FF)
$Edit = _GUICtrlRichEdit_Create($Form1, 6, 9, 403, 361,BitOR($ES_WANTRETURN, $ES_MULTILINE))
_GUICtrlRichEdit_SetOLECallback($Edit)
$Edit2 = GUICtrlCreateEdit("", 6, 375, 403, 91,$WS_VSCROLL+$ES_SUNKEN)
$Button1 = GUICtrlCreateButton("Senden", 336, 471, 75, 25, 0)
Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Senden()
EndSwitch
WEnd
Func _Senden()
Local $Read = GUICtrlRead ($Edit2)
GUICtrlSetData ($Edit2,"")
_GUICtrlRichEdit_AppendText($Edit,$Read & @CR)
EndFunc
Func _ScrollDown()
$Zeile = _GUICtrlRichEdit_GetScrollPos($Edit)
_GUICtrlRichEdit_SetScrollPos($Edit,$Zeile[0],$Zeile[1] + 1)
EndFunc
Func _ScrollUp()
$Zeile = _GUICtrlRichEdit_GetScrollPos($Edit)
_GUICtrlRichEdit_SetScrollPos($Edit,$Zeile[0],$Zeile[1] - 1)
EndFuncAllerdings geht da das Mausrad nicht mehr
-
Könntest du mir noch ein kleines Beispiel zu der GDI.au3 machen? Ich weiß es nervt, aber ich habs noch cnith ganz gerallt
-
Ich wollte das mit der GDI.au3 machen weil dann kann ich das ja auch mit anderen Formen machen.
-
@progandy
Jo so kann man es auch machen, aber geht das auch irgendwie mit der GDI.au3? Gibts dazu eine Hilfedatei? -
Das ist mal cool geht das auch mit Elypsen die man nicht mit GDI-Plus gemalt sind?
Ich habe nähmlich ein Bild und das möchte ich als Button Benutzen und man soll nur Draufklicken können wenn man im Bereich des Buttons ist und nicht im 4-EckSpoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 443, 192, 124)
$Pic1 = GUICtrlCreatePic ("6.gif",15,50,110,20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic1
MsgBox (0,"","Klick")
EndSwitch
WEndIch hab das bisher auch so wie cih gezeigt hab gemacht also mit color, aber dann muss der Hintergrund einfarbig sein
-
Hier hab ich dir schon eine möglickeit gezeigt
-
Ja das liegt daran das man mit GDI+ nur die Hintergrundfarbe der Gui verändert (soweit ich weiß) und man ein Control erstellt. Müssteste wolh irgendwie mit PixelAbfrage machen, ich guck mal ob ich was hinbekomme, ist eig ganz leicht, solange es einfarbig ist, nur schwer wird wenn ein feld unterschiedliche farben hat
EDIT:
Habs Fertig:Spoiler anzeigen
[autoit]#include <GuiConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GDIPlus.au3>Dim $aPoints[8][2]
[/autoit] [autoit][/autoit] [autoit]$hGUI = GUICreate("GDI+", 400, 300)
[/autoit]
$hWnd = WinGetHandle("GDI+")
GUISetState()
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$aPoints[0][0] = 7
$aPoints[1][0] = 50
$aPoints[1][1] = 50
$aPoints[2][0] = 100
$aPoints[2][1] = 25
$aPoints[3][0] = 200
$aPoints[3][1] = 5
$aPoints[4][0] = 250
$aPoints[4][1] = 50
$aPoints[5][0] = 300
$aPoints[5][1] = 100
$aPoints[6][0] = 350
$aPoints[6][1] = 200
$aPoints[7][0] = 250
$aPoints[7][1] = 250
_GDIPlus_GraphicsFillClosedCurve($hGraphic, $aPoints)
GUIRegisterMsg (0x0201,"_Erkennung")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _Erkennung()
$Info = MouseGetPos()
$Color = PixelGetColor ($Info[0],$Info[1])
If $Color = 0x000000 Then
MsgBox(32, "Info", "Grafik geklickt!")
EndIf
EndFunc
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown() -
Oh ja tschuldigung, ich benutze die alte version von GuiRichEdit, da ich mit der neuen Prob hatte bei einem Chat den ich gerade am schreiben bin wo ich Smilys einbauen mösche
Hab es in Post1 hochgeladen, link weiß ich nciht mehr, hatte ich einfach noch auf meinem PC. Aber du darfst nicht als Beta Kommpelieren, weil da hatte ich Prob, da war alles irgendwie veschoben, also ich schreib noch in 3.3.0.0
-
Also um was richtig gute mit html hinzukriegen muss man Java, html und php können. Möglich ist das bestimmt, aber das mit der Userliste kann man auch so machen, du sagts du brauchst keine hilfe für einen Simplen Chat, also ich hab schonmal einen gemacht wo man den User auswählt mit dem man schreiben will, und nicht alle es sehnen können. Walls du es dir mal angucken willst, hier.
-
Ich habees auf meinem neuen Rechnen mit Win7 Probiert da ging es super, hat nix geflackert, dann hab ich es auf meinem alten 32Bit-XP-Rechner Probiert, da hat es gering Geflackert, hielt sich aber in grenzen
-
Warum löscht du deine Beiträge, wie soll man dir so Helfen?
-
Das ist ja mal komisch
Hast du das Script selber geschreiben? Oder hast du es kopiert? Oder ist es bei allen deinen Scripten? Hast du mal Probiert es mit dem Editor zu öffnen ob es dann auch schon so komsich ist?
War das nachdem du irgendwas gemacht hast?