XProfan

English

Julian
Schmidt

Hi,
I try straight Tabchanged with one in a tab-Control plazierten tab-Control abzufragen. still somehow misslingt it.
Why the?
Compile Mark Separation

Def SetActiveTab(2) SendMessage(&(1),$0130C,&(2),0)
cls
var hTab1& = Create("TabCtrl", %hwnd, "Tab1", -1, 2, width(%hwnd)+4, height(%hwnd))
var hTab2& = Create("TabCtrl", hTab1&, "Tab1", 15, 45, width(hTab1&)-32, height(hTab1&)-60)

whileloop 4

    InsertTab(hTab1&, &loop+1, "Tab"+Str$(&loop+1))
    InsertTab(hTab2&, &loop+1, "Tab"+Str$(&loop+1))

Endwhile

while 1

    waitinput

    if TabChanged(hTab1&)

        SetActiveTab(hTab2&,GetActiveTab(hTab1&))

    elseif TabChanged(hTab2&)

        SetActiveTab(hTab1&,GetActiveTab(hTab2&))

    EndIf

Endwhile

LG

Julian57

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

Julian
Schmidt

thanks all The To this Thread something beigetragen having.
it functions perfect

Compile Mark Separation

Def SetActiveTab(2) SendMessage(&(1),$0130C,&(2),0)
cls
Usermessages 16
var hTab1& = Create("TabCtrl", %hwnd, "Tab1", -1, 2, width(%hwnd)+4, height(%hwnd))
var hTab2& = Create("TabCtrl", hTab1&, "Tab1", 15, 45, width(hTab1&)-32, height(hTab1&)-60)
Subclass %hwnd,1

whileloop 4

    InsertTab(hTab1&, &loop+1, "Tab"+Str$(&loop+1))
    InsertTab(hTab2&, &loop+1, "Tab"+Str$(&loop+1))

Endwhile

while 1

    waitinput

    if TabChanged(hTab1&)

        SetActiveTab(hTab2&,GetActiveTab(hTab1&))

    elseif %umessage=16

        Subclass %hwnd,0
        end

    EndIf

Endwhile

SubClassProc

    If SubClassMessage(%hwnd, $004E)

        If long(&sLParam,0) = hTab2&

            If long(&sLParam,8)  =  0-550 - 1

                SetActiveTab(hTab1&,GetActiveTab(hTab2&))

            EndIf

        EndIf

        Set("WinProc",1)

    EndIf

ENDPROC

01/07/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

the Elterntabcontrol heading The Message well of Kindtabcontrol not on the hWnd,

if you the want then could the Elterntabcontrol moreover subclassen.

Optimal nothing on Tabcontrols take off separate on Dialogen/ Windows.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

@iF
I need for my News proposition In any drop two tab-Controls.
therefore would Subclassing Schonmal one Lösungsansatz.

One Alternativer Lösungsansatz of me would whom second tab-Control on a extra dialog ala
Compile Mark Separation

var class$="#32770"
var title$=""
External("USER32","CreateWindowExA",0,addr(class$),addr(title$),$40000000,10,20, 100, 50,%hwnd,0,%hinstance,1000)re>

To lay. would be tab-Changed then for second tab-Control functions?

can you with the whom Subclassing proggen?

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Perhaps. simply How in the example from the Helpfile in the too no Control (too no tab-Control) on one tab-Control stored becomes -

beget simply both tab-Controls on one and the same dialog/ Window.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

iF (06.01.12)

Perhaps. simply How in the example from the Helpfile in the too no Control (too no tab-Control) on one tab-Control stored becomes -
beget simply both tab-Controls on one and the same dialog/ Window.

Have I already long ago probiert. Then only the 1ste displayed.
Compile Mark Separation

cls
var hTab1& = Create("TabCtrl", %hwnd, "Tab1", -1, 2, width(%hwnd)+4, height(%hwnd))
var hTab2& = Create("TabCtrl", %hwnd, "Tab1", 15, 45, width(hTab1&)-32, height(hTab1&)-60)

while 1

Endwhi

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Jagolski

Hello!
Compile Mark Separation

 $P+
SetErrorLevel 0
 $H WINDOWS.PH
 $H MESSAGES.PH
 $H STRUCTS.PH
 $H SHELLAPI.PH
 $H COMMCTRL.PH
 $I TABCONTROL.INC
Struct NMHDR = ~NMHDR

Proc OnApplicationExit

    DeleteObject TextFont1&
    Dispose pnmh#
    Dispose TBC1#
    Dispose TBC2#
    SubClass %hwnd,0
    SubClass PageControl1_Sheet1&,0

EndProc

Proc OnApplicationInit

EndProc

OnApplicationInit
Declare appexit%
Declare pnmh#
Declare TBC1#
Declare TBC2#
Declare PageControl1_Sheet1&
Declare PageControl1_Sheet2&
Declare PageControl1_Sheet3&
Declare PageControl1_Sheet4&
Declare PageControl1_Sheet5&
Declare PageControl2_Sheet1&
Declare PageControl2_Sheet2&
Declare PageControl2_Sheet3&
Declare PageControl2_Sheet4&
Declare PageControl2_Sheet5&
Declare PageControl1&
Declare PageControl2&
Dim TBC1#,TabControl
Dim TBC2#,TabControl
Dim pnmh#,NMHDR
var TextFont1&        = Create("Font","MS Sans Serif",13,0,0,0,0)

Proc PageControl1_OnChange

    Declare TBC1&
    TBC1& = TBC1#.GetActiveTab()

    If TBC1& = 0

        TBC1#.SetActiveSheet(PageControl1_Sheet1&,1)
        TBC1#.SetActiveSheet(PageControl1_Sheet2&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet3&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet4&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet5&,0)

    ElseIf TBC1& = 1

        TBC1#.SetActiveSheet(PageControl1_Sheet1&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet2&,1)
        TBC1#.SetActiveSheet(PageControl1_Sheet3&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet4&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet5&,0)

    ElseIf TBC1& = 2

        TBC1#.SetActiveSheet(PageControl1_Sheet1&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet2&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet3&,1)
        TBC1#.SetActiveSheet(PageControl1_Sheet4&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet5&,0)

    ElseIf TBC1& = 3

        TBC1#.SetActiveSheet(PageControl1_Sheet1&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet2&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet3&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet4&,1)
        TBC1#.SetActiveSheet(PageControl1_Sheet5&,0)

    ElseIf TBC1& = 4

        TBC1#.SetActiveSheet(PageControl1_Sheet1&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet2&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet3&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet4&,0)
        TBC1#.SetActiveSheet(PageControl1_Sheet5&,1)

    EndIf

EndProc

Proc PageControl2_OnChange

    Declare TBC2&
    TBC2& = TBC2#.GetActiveTab()

    If TBC2& = 0

        TBC2#.SetActiveSheet(PageControl2_Sheet1&,1)
        TBC2#.SetActiveSheet(PageControl2_Sheet2&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet3&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet4&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet5&,0)

    ElseIf TBC2& = 1

        TBC2#.SetActiveSheet(PageControl2_Sheet1&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet2&,1)
        TBC2#.SetActiveSheet(PageControl2_Sheet3&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet4&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet5&,0)

    ElseIf TBC2& = 2

        TBC2#.SetActiveSheet(PageControl2_Sheet1&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet2&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet3&,1)
        TBC2#.SetActiveSheet(PageControl2_Sheet4&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet5&,0)

    ElseIf TBC2& = 3

        TBC2#.SetActiveSheet(PageControl2_Sheet1&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet2&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet3&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet4&,1)
        TBC2#.SetActiveSheet(PageControl2_Sheet5&,0)

    ElseIf TBC2& = 4

        TBC2#.SetActiveSheet(PageControl2_Sheet1&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet2&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet3&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet4&,0)
        TBC2#.SetActiveSheet(PageControl2_Sheet5&,1)

    EndIf

EndProc

SubClassProc

    If SubClassMessage(%hwnd, ~WM_NOTIFY)

        pnmh# = &sLParam

        If pnmh#.hwndFrom& = PageControl1&

            If pnmh#.code& = ~TCN_SELCHANGE

                PageControl1_OnChange

            EndIf

        EndIf

        Set("WinProc",1)

    ElseIf SubClassMessage(PageControl1&, ~WM_NOTIFY)

        pnmh# = &sLParam

        If pnmh#.hwndFrom& = PageControl2&

            If pnmh#.code& = ~TCN_SELCHANGE

                PageControl2_OnChange

            EndIf

        EndIf

        Set("WinProc",1)

    EndIf

EndProc

Set("TrueColor",1)
WindowStyle $003F
WindowTitle "DesignForm"
Window %maxX + 5,114 - 691,416
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
var hToolBmp& = create("hPic", 0, "TOOLBAR")
var hImageList1& = Create("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
PageControl1& = TBC1#.TabControl(%hwnd,10,60,672,322,hImageList1&,"PageControl1","PageControl1")
PageControl1& = TBC1#.GetHandel()
TBC1#.TBFont(TextFont1&)
PageControl1_Sheet1& = TBC1#.CreateTabSheet(4,25,664,293,2000,1)
TBC1#.InsertTab(1,"Seite 1",9)
PageControl1_Sheet2& = TBC1#.CreateTabSheet(4,25,664,293,2001,0)
TBC1#.InsertTab(2,"Seite 2",9)
PageControl1_Sheet3& = TBC1#.CreateTabSheet(4,25,664,293,2002,0)
TBC1#.InsertTab(3,"Seite 3",9)
PageControl1_Sheet4& = TBC1#.CreateTabSheet(4,25,664,293,2003,0)
TBC1#.InsertTab(4,"Seite 4",9)
PageControl1_Sheet5& = TBC1#.CreateTabSheet(4,25,664,293,2004,0)
TBC1#.InsertTab(5,"Seite 5",9)
PageControl2& = TBC2#.TabControl(PageControl1_Sheet1&,30,20,442,193,hImageList1&,"PageControl2","PageControl2")
PageControl2& = TBC2#.GetHandel()
TBC2#.TBFont(TextFont1&)
PageControl2_Sheet1& = TBC2#.CreateTabSheet(4,25,434,164,2005,1)
TBC2#.InsertTab(1,"Seite 1",9)
PageControl2_Sheet2& = TBC2#.CreateTabSheet(4,25,434,164,2006,0)
TBC2#.InsertTab(2,"Seite 2",9)
PageControl2_Sheet3& = TBC2#.CreateTabSheet(4,25,434,164,2007,0)
TBC2#.InsertTab(3,"Seite 3",9)
PageControl2_Sheet4& = TBC2#.CreateTabSheet(4,25,434,164,2008,0)
TBC2#.InsertTab(4,"Seite 4",9)
PageControl2_Sheet5& = TBC2#.CreateTabSheet(4,25,434,164,2009,0)
TBC2#.InsertTab(5,"Seite 5",9)
SubClass %hwnd,1
SubClass PageControl1_Sheet1&,1
SetWindowPos %hwnd = 207,114 - 691,416;0

WhileNot appexit%

    WaitInput

    If %key = 2

        appexit%=1

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Hilfe

     href='./../../Function-References/XProfan/endif/'>EndIf

EndWhile

OnApplicationExit

Greeting

Detlef

tabcontrol.inc	3 kB

Hochgeladen:	01/06/12

Downloadcounter:
		Download

XProfan X2
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

the functions of course, though I get not on my example transfer.
Compile Mark Separation

 $H MESSAGES.PH
 $H STRUCTS.PH
 $H SHELLAPI.PH
 $H COMMCTRL.PH
Struct NMHDR = ~NMHDR
Def SetActiveTab(2) SendMessage(&(1),$0130C,&(2),0)
cls
Usermessages 16
var hTab1& = Create("TabCtrl", %hwnd, "Tab1", -1, 2, width(%hwnd)+4, height(%hwnd))
var hTab2& = Create("TabCtrl", hTab1&, "Tab1", 15, 45, width(hTab1&)-32, height(hTab1&)-60)
Subclass hTab2&,1
Declare pnmh#
Dim pnmh#,NMHDR

whileloop 4

    InsertTab(hTab1&, &loop+1, "Tab"+Str$(&loop+1))
    InsertTab(hTab2&, &loop+1, "Tab"+Str$(&loop+1))

Endwhile

while 1

    waitinput

    if TabChanged(hTab1&)

        SetActiveTab(hTab2&,GetActiveTab(hTab1&))

    elseif %umessage=16

        Subclass hTab2&,0
        end

    EndIf

Endwhile

SubClassProc

    If SubClassMessage(hTab2&, ~WM_NOTIFY)

        pnmh# = &sLParam

        If pnmh#.hwndFrom& = PageControl1&

            If pnmh#.code& = ~TCN_SELCHANGE

                SetActiveTab(hTab1&,GetActiveTab(hTab2&))

            EndIf

        EndIf

        Set("WinProc",1)

    EndIf

../Function-References/XProfan/endproc/'>ENDPROC

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Jagolski

Compile Mark Separation

 $H WINDOWS.PH
 $H MESSAGES.PH
 $H STRUCTS.PH
 $H SHELLAPI.PH
 $H COMMCTRL.PH
Struct NMHDR = ~NMHDR
Def SetActiveTab(2) SendMessage(&(1),$0130C,&(2),0)
cls
Usermessages 16
var hTab1& = Create("TabCtrl", %hwnd, "Tab1", -1, 2, width(%hwnd)+4, height(%hwnd))
var hTab2& = Create("TabCtrl", hTab1&, "Tab1", 15, 45, width(hTab1&)-32, height(hTab1&)-60)
Subclass %hwnd,1
Declare Tab%
Declare pnmh#
Dim pnmh#,NMHDR

whileloop 4

    InsertTab(hTab1&, &loop+1, "Tab"+Str$(&loop+1))
    InsertTab(hTab2&, &loop+1, "Tab"+Str$(&loop+1))

Endwhile

while 1

    waitinput

    if TabChanged(hTab1&)

        SetActiveTab(hTab2&,GetActiveTab(hTab1&))

    elseif %umessage=16

        Subclass hTab2&,0
        end

    EndIf

Endwhile

SubClassProc

    If SubClassMessage(%hwnd, ~WM_NOTIFY)

        pnmh# = &sLParam

        If pnmh#.hwndFrom& = hTab1&

            If pnmh#.code& = ~TCN_SELCHANGE

                Tab% = GetActiveTab(hTab1&)

                If Tab% = 0

                    SetWindowPos hTab2&=15, 45-width(hTab1&)-32, height(hTab1&)-60;0

                ElseIf Tab% = 1

                    SetWindowPos hTab2&=0, 0-0,0;0

                ElseIf Tab% = 2

                    SetWindowPos hTab2&=0, 0-0,0;0

                ElseIf Tab% = 3

                    SetWindowPos hTab2&=0, 0-0,0;0

                ElseIf Tab% = 4

                    SetWindowPos hTab2&=0, 0-0,0;0

                EndIf

            EndIf

        EndIf

        Set("WinProc",1)

    EndI

ENDPROC

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

OK the functions super.
Compile Mark Separation

Struct NMHDR = hwndFrom&,idFrom&,code&
Def SetActiveTab(2) SendMessage(&(1),$0130C,&(2),0)
cls
Usermessages 16
var hTab1& = Create("TabCtrl", %hwnd, "Tab1", -1, 2, width(%hwnd)+4, height(%hwnd))
var hTab2& = Create("TabCtrl", hTab1&, "Tab1", 15, 45, width(hTab1&)-32, height(hTab1&)-60)
Subclass %hwnd,1
Declare pnmh#
Dim pnmh#,NMHDR

whileloop 4

    InsertTab(hTab1&, &loop+1, "Tab"+Str$(&loop+1))
    InsertTab(hTab2&, &loop+1, "Tab"+Str$(&loop+1))

Endwhile

while 1

    waitinput

    if TabChanged(hTab1&)

        SetActiveTab(hTab2&,GetActiveTab(hTab1&))

    elseif %umessage=16

        Subclass hTab2&,0
        end

    EndIf

Endwhile

SubClassProc

    If SubClassMessage(%hwnd, $004E)

        pnmh# = &sLParam

        If pnmh#.hwndFrom& = hTab2&

            If pnmh#.code& =  0-550 - 1

                SetActiveTab(hTab1&,GetActiveTab(hTab2&))

            EndIf

        EndIf

        Set("WinProc",1)

    EndIf

ENDPROC

would be the theoretical too without The class possible?

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

this is no class separate a structure or. one plainer memory.

this hwndFrom&,idFrom&,code& are 3 Longs means 3x4 byte means can You too Dim pnmh#,12 write without NMHDR To deklarieren and pnmh#.code& would then long(pnmh#,8) but instead of pnmh# = &sLParam would I sooner rtlMoveMemory(pnmh#,&slParam,12) write.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Jagolski

Compile Mark Separation

Def SetActiveTab(2) SendMessage(&(1),$0130C,&(2),0)
cls
Usermessages 16
var hTab1& = Create("TabCtrl", %hwnd, "Tab1", -1, 2, width(%hwnd)+4, height(%hwnd))
var hTab2& = Create("TabCtrl", hTab1&, "Tab1", 15, 45, width(hTab1&)-32, height(hTab1&)-60)
Declare Tab%

whileloop 4

    InsertTab(hTab1&, &loop+1, "Tab"+Str$(&loop+1))
    InsertTab(hTab2&, &loop+1, "Tab"+Str$(&loop+1))

Endwhile

while 1

    waitinput

    if TabChanged(hTab1&)

        PageControl1_OnChange

    elseif %umessage=16

        Subclass hTab2&,0
        end

    EndIf

Endwhile

Proc PageControl1_OnChange

    Tab% = GetActiveTab(hTab1&)

    If Tab% = 0

        SetWindowPos hTab2&=15, 45-width(hTab1&)-32, height(hTab1&)-60;0

    ElseIf Tab% = 1

        SetWindowPos hTab2&=0, 0-0,0;0

    ElseIf Tab% = 2

        SetWindowPos hTab2&=0, 0-0,0;0

    ElseIf Tab% = 3

        SetWindowPos hTab2&=0, 0-0,0;0

    ElseIf Tab% = 4

        SetWindowPos hTab2&=0, 0-0,0;0

    EndIf

ENDPROC

XProfan X2
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

01/06/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

iF (06.01.12)

this is no class separate a structure or. one plainer memory.
this hwndFrom&,idFrom&,code& are 3 Longs means 3x4 byte means can You too Dim pnmh#,12 write without NMHDR To deklarieren and pnmh#.code& would then long(pnmh#,8) but instead of pnmh# = &sLParam would I sooner rtlMoveMemory(pnmh#,&slParam,12) write.

is correct so funktionierts. thanks IF

Compile Mark Separation

Def SetActiveTab(2) SendMessage(&(1),$0130C,&(2),0)
cls
Usermessages 16
var hTab1& = Create("TabCtrl", %hwnd, "Tab1", -1, 2, width(%hwnd)+4, height(%hwnd))
var hTab2& = Create("TabCtrl", hTab1&, "Tab1", 15, 45, width(hTab1&)-32, height(hTab1&)-60)
Subclass %hwnd,1
Declare pnmh#
Dim pnmh#,12

whileloop 4

    InsertTab(hTab1&, &loop+1, "Tab"+Str$(&loop+1))
    InsertTab(hTab2&, &loop+1, "Tab"+Str$(&loop+1))

Endwhile

while 1

    waitinput

    if TabChanged(hTab1&)

        SetActiveTab(hTab2&,GetActiveTab(hTab1&))

    elseif %umessage=16

        Subclass hTab2&,0
        Dispose pnmh#
        end

    EndIf

Endwhile

SubClassProc

    If SubClassMessage(%hwnd, $004E)

        pnmh# = &sLParam

        If long(pnmh#,0) = hTab2&

            If long(pnmh#,8)  =  0-550 - 1

                SetActiveTab(hTab1&,GetActiveTab(hTab2&))

            EndIf

        EndIf

        Set("WinProc",1)

    EndIf

ENDPROC