| |
| |
|
Jac
de
Lad | Salut,
gibt es une Funktion SetActiveTab (quasi cela Gegenstück trop GetActiveTab)?
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 06.02.2006 ▲ |
|
| |
|
|
Rolf
Koch | Hi Jac, cela ça va.
KompilierenMarqueSéparation $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.3a
DATUM 06.02.2006 um 16:08 Uhr
VERWENDETE PROFANVERSION IST 7.6a-NT
CODE ERSTELLT UNTER WINDOWS XP
!!! Dieser Code wird von Roc immer neu erzeugt !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade !!!
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
Def SetActiveTab(2) SendMessage(&(1),$0130C,&(2),0)
DECLARE TABCTRL1&
WINDOWSTYLE 63
WINDOWTITLE "SetActiveTab"
WINDOW 160,136-515,196
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
TABCTRL1& = CREATE("TABCTRL",%HWND,"Reiter1",0022,0013,0464,0130)
@InsertTab(TABCTRL1&,1,"Reiter2")
@InsertTab(TABCTRL1&,2,"Reiter3")
SETFOCUS(%HWND)
SetActiveTab(Tabctrl1&,0)
sleep 1000
SetActiveTab(Tabctrl1&,1)
sleep 1000
SetActiveTab(Tabctrl1&,2)
sleep 1000
SetActiveTab(Tabctrl1&,1)
sleep 1000
SetActiveTab(Tabctrl1&,0)
sleep 1000
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2)
LET ENDE%= 1
ELSEIF @EQU(%KEY,4)
ELSEIF TABCHANGED(TABCTRL1&) TABCTRL
ENDIF
WEND
|
|
| |
| |
| |
|
|
Jac
de
Lad | Ahh, merci. Prompte service!
Jac
PS: Gibts encore plus sendmessage.Befehle pour TabControl, qui wirklich sinnvoll sommes. Woher prenez son qui? je connais seulement qui, qui dans qui Profan-Aider stehen... |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 06.02.2006 ▲ |
|
| |
|
|
Rolf
Koch | Infos comment toujours sur MSDN:
Tabs arrêt [...] 
encore einfacher sans le calcul ist naturellement suivant Weg:
sous MSDN vois Du, quelle Headerdatei eingebunden volonté muss.
ici ist es qui commctrl.h unten am Schluss qui page.
alors simple einbinden dans profanisch:
$H Commctrl.ph
et ensuite
folgendes écrivons:
Def Setactivetab(2) SendMessage(&(1),~TCM_SETCURSEL,&(2),0)
tu vois, beide wichtigen Infos findest Du dans qui MSDN.
alors quel En-tête einzubinden ist et ensuite simple qui Tilde avant qui dans qui MSDN definierte Funktion mettons.
je hoffe je hab Dir nix erzählt, quoi Du déjà weist. 
Ansonsten ist es oui aussi pour Neulinge bien trop savons 
Rolf |
|
| |
| |
| |
|
|
Jac
de
Lad | bof, cela avec En-tête et so sais je déjà. mais je blicke chez MSDN toujours pas so par et ensuite sais je oui aussi pas, quelle weiteren paramètre verwendet volonté...bof, je peux oui euch fragen. J'ai pensé, dass la fois quelqu'un irgendwie alle Messages zusammgefasst hat, dans ner Hilfedatei ou bien so. MSDN ist irgendwie pas so mon le cas (aussi muss je pour toujours online son!
Jac  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 06.02.2006 ▲ |
|
| |
|
|
Frank
Abbing | tu peux aussi qui Win32.hlp-Dossier verwenden. cela reicht presque dans allen Fällen, je fais es genauso. Aktuelle Windows 2000/XP Sachen wirst du là seulement pas trouver. Alles autre mais déjà.
simple googlen sous win32.hlp. ou bien [...] klicken et beide Teile runterladen. |
|
| |
| |
| |
|
(463)
Deutsch
English
Français
Español
Italia