how to move an item to a ribbon tab

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   hi guyz.

i want to move my passwordchar style editbox to Welcome tab, under username editbox.  

you can see screenshot and code. 

Public Sub RibbonLoad()

    Dim Don, PassEdit As CommandBarEdit

    Dim GroupFile As RibbonGroup

    Dim ControlFile As CommandBarPopup

    Dim rTab As RibbonTab

    Set RibbonBar = FMain.CMBar.AddRibbonBar("The Ribbon")

    Set rTab = RibbonBar.InsertTab(0, "Welcome")

        Set GroupFile = rTab.Groups.AddGroup("", 0)

        GroupFile.Add XtremeCommandBars.XTPControlType.xtpControlLabel, 501, "Username:", False, False

        GroupFile.Add XtremeCommandBars.XTPControlType.xtpControlLabel, 502, "Password:", False, False

        GroupFile.Add XtremeCommandBars.XTPControlType.xtpControlLabel, 503, "", False, False

        GroupFile.Add XtremeCommandBars.XTPControlType.xtpControlEdit, 504, "", False, False

        Set PassEdit = AddButton(RibbonBar.Controls, xtpControlEdit, 505, "")

        PassEdit.EditStyle = xtpEditStylePassword

thanx      

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
fc41 Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 05 July 2008 Status: Offline Points: 5	Post Options Post Reply Quote fc41 Report Post Thanks(0) Quote Reply Topic: how to move an item to a ribbon tab Posted: 13 May 2009 at 3:43am
	hi guyz. i want to move my passwordchar style editbox to Welcome tab, under username editbox. you can see screenshot and code. Public Sub RibbonLoad() Dim Don, PassEdit As CommandBarEdit Dim GroupFile As RibbonGroup Dim ControlFile As CommandBarPopup Dim rTab As RibbonTab Set RibbonBar = FMain.CMBar.AddRibbonBar("The Ribbon") Set rTab = RibbonBar.InsertTab(0, "Welcome") Set GroupFile = rTab.Groups.AddGroup("", 0) GroupFile.Add XtremeCommandBars.XTPControlType.xtpControlLabel, 501, "Username:", False, False GroupFile.Add XtremeCommandBars.XTPControlType.xtpControlLabel, 502, "Password:", False, False GroupFile.Add XtremeCommandBars.XTPControlType.xtpControlLabel, 503, "", False, False GroupFile.Add XtremeCommandBars.XTPControlType.xtpControlEdit, 504, "", False, False Set PassEdit = AddButton(RibbonBar.Controls, xtpControlEdit, 505, "") PassEdit.EditStyle = xtpEditStylePassword thanx
	Vb6Sp6

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 14 May 2009 at 1:40am
	So why you call AddButton and not GroupFile.Add ?
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

fc41 Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 05 July 2008 Status: Offline Points: 5	Post Options Post Reply Quote fc41 Report Post Thanks(0) Quote Reply Posted: 14 May 2009 at 2:27am
	cos i saw a post of you about - you need addbutton for passwordchar style am i wrong?
	Vb6Sp6

fc41 Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 05 July 2008 Status: Offline Points: 5	Post Options Post Reply Quote fc41 Report Post Thanks(0) Quote Reply Posted: 14 May 2009 at 2:58am
	ok i made it
	Vb6Sp6