| |
| |
|
Jac
de
Lad | ¡Hola,
hay una Función SetActiveTab (quasi el Gegenstück a 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, el va así.
KompilierenMarcaSeparación $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, danke. Prompte Bedienung!
Jac
PS: Gibts todavía mehr sendmessage.Befehle para TabControl, el wirklich sinnvoll son. Woher nehmt ihr el? Yo saber sólo el, el en el Profano-Ayuda posición... |
|
| |
| 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 como siempre encima MSDN:
Tabs sólo [...] 
Noch einfacher sin a rechnen es natürlich folgender Weg:
Bajo MSDN siehst Usted, welche Headerdatei eingebunden voluntad muss.
Hier es el commctrl.h unten al Schluss el Página.
Also simplemente einbinden en profanisch:
$H Commctrl.ph
y luego
folgendes escribir:
Def Setactivetab(2) SendMessage(&(1),~TCM_SETCURSEL,&(2),0)
Usted siehst, beide wichtigen Infos findest Usted en el MSDN.
Also welcher Encabezamiento einzubinden es y luego simplemente el Tilde antes el en el MSDN definierte Función conjunto.
Yo hoffe Yo que has nix erzählt, qué Usted ya weist. 
Ansonsten es en efecto para Neulinge bien a wissen 
Rolf |
|
| |
| |
| |
|
|
Jac
de
Lad | Naja, el con Encabezamiento y así weiß Yo ya. Aber Yo blicke en MSDN siempre no así por y luego weiß Yo en efecto no, welche más Parámetro verwendet voluntad...naja, Yo de hecho puede euch fragen. Pensé, dass veces alguien irgendwie todos Messages zusammgefasst ha, en ner Hilfedatei más o menos. MSDN es irgendwie no así mein Fall (außerdem muss Yo dafür siempre online ser!
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 | Usted puede auch el Win32.hlp-Expediente uso. Das reicht fast en allen Fällen, Yo mache lo genauso. Aktuelle Windows 2000/XP Sachen wirst du hay sólo no encontrar. Alles otro aber ya.
Einfach googlen bajo win32.hlp. Oder [...] clic y beide Teile runterladen. |
|
| |
| |
| |
|
(461)
Deutsch
English
Français
Español
Italia