| |
| |
|
Jac
de
Lad | Hi,
there a function SetActiveTab (quasi the Gegenstück To 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 | 02/06/06 ▲ |
|
| |
|
|
Rolf
Koch | Hi Jac, the goes so.
CompileMarkSeparation $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, thanks. Prompte operating!
Jac
PS: Gibts yet More sendmessage.command for TabControl, The really meaningfully are. where take your The? I know only The, The in the Profan-Help stand... |
|
| |
| 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 | 02/06/06 ▲ |
|
| |
|
|
Rolf
Koch | Info How always over MSDN:
Tabs hold [...] 
yet plainer without To calculate is naturally following lane:
under MSDN see You, which Headerdatei eingebunden go must.
here's it The commctrl.h under on the Schluss the Page.
means simply integrate in profanisch:
$H Commctrl.ph
and then
the following write:
Def Setactivetab(2) Sendmessage(&(1),~TCM_SETCURSEL,&(2),0)
you see, both important Info find You in the MSDN.
means which Header einzubinden is and then simply The Tilde to The in the MSDN defined function settle.
I hope I Have you nothing tells, what You already points. 
otherwise is it indeed for Neulinge well to know 
Rolf |
|
| |
| |
| |
|
|
Jac
de
Lad | Well, with the Header and so white I already. but I looks with MSDN always not so through and then white I indeed not, which further Parameter uses go...naja, I can Yes you ask. I thought, that time someone somehow any Messages zusammgefasst has, in Ner Helpfile or so. MSDN is somehow not so my drop (moreover must I for always online his!
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 | 02/06/06 ▲ |
|
| |
|
|
Frank
Abbing | You can also The Win32.hlp-File use. the reicht almost in all Make, I make it just as. actually windows 2000/XP things become You there only not find. everything else but already.
simply googlen under win32.hlp. or [...] clicking and both pieces runterladen. |
|
| |
| |
| |
|
(861)
Deutsch
English
Français
Español
Italia