کنترل کدجوک

[samiasoft]

سلام دوستان

من با استفاده از کدجاسک یک منویی بصورت زیر درست کردم :

http://s3.picofile.com/file/8219294668/2015_10_26_185405.jpg

برای ابجکت اندازه فونت من اعدادی رو داخل کمبوباکسش ریختم و برای کمبوباکس فونتهای کل سیستم رو لود میکنم. بصورت زیر :


ولی برای دریافت مقدار انتخاب شده این کمبوباکس ها چیکار کنیم؟میخواستم که ریچ تکست باکسم فونتش مثلا با این فونت عوض بشه.


Dim ComboFont As System.Drawing.Text.InstalledFontCollection
ComboFont = New System.Drawing.Text.InstalledFontCollection
Dim Combo As XtremeCommandBars.CommandBarComboBox = Nothing


Combo = .Add(XtremeCommandBars.XTPControlType.xtpControlCo mboBox, ID_FONT_FACE, "", False, False)
Combo.DropDownListStyle = True
Combo.Width = 115
Combo.Text = "Tahoma"
Combo.AutoComplete = True



For Each family In ComboFont.Families
Combo.AddItem(family.Name)
Next




Combo = .Add(XtremeCommandBars.XTPControlType.xtpControlCo mboBox, ID_FONT_SIZE, "", False, False)
Combo.DropDownListStyle = True
Combo.Width = 45
Combo.Text = "10"
Combo.AddItem(8, "8")
Combo.AddItem(9, "9")
Combo.AddItem(10, "10")
Combo.AddItem(11, "11")
Combo.AddItem(12, "12")
Combo.AddItem(14, "14")
Combo.AddItem(16, "16")
Combo.AddItem(20, "20")
Combo.AddItem(22, "22")
Combo.AddItem(24, "24")
Combo.AddItem(26, "26")
Combo.AddItem(28, "28")
Combo.AddItem(36, "36")
Combo.AddItem(48, "48")
Combo.AddItem(72, "72")

[Ehsan_Shia]

بسم الله الرحمن الرحیم
با سلام و عرض تسلیت شهادت حضرت زین العابدین (ع)
دوست عزیز این کدجاسک فرمودید، چیست؟ البته عذر می خواهم، این سوال رو می پرسم.

[samiasoft]

منظورم کامپونت های Codejock بود که البته باید کدجک مینوشتم عنوان رو.:خجالت:


مشکلم با درج کدهای زیر حل شد.

If eventArgs.control.Type = XtremeCommandBars.XTPControlType.xtpControlComboBo x Then Dim CurrentIndex As Long
CurrentIndex = eventArgs.control.ListIndex
If (CurrentIndex > 0) Then
TextBox4.Text = eventArgs.control.List(CurrentIndex)
RichTextBox1.SelectionFont = New Font(fonname, eventArgs.control.List(CurrentIndex), FontStyle.Regular)
End If
End If








Case ID_FONT_FACE
If eventArgs.control.Type = XtremeCommandBars.XTPControlType.xtpControlComboBo x Then
Dim CurrentIndex As Long
CurrentIndex = eventArgs.control.ListIndex
If (CurrentIndex > 0) Then
TextBox5.Text = eventArgs.control.List(CurrentIndex).ToString
RichTextBox1.SelectionFont = New Font(eventArgs.control.List(CurrentIndex).ToString , fonsz, FontStyle.Regular)
End If
End If

فقط مشکلی که موند این هست که چگونه یک کمبوباکس رنگ درست کنم بدین وسیله:متفکر:

[samiasoft]

مشکل قبلیم هم حل شد. حالا این مشکل!

دوستان من در برنامم یک منوی زوم درست کردم بصورت زیر :

http://s3.picofile.com/file/8219660900/2015_10_28_174038.jpg
ولی هرکاری میکنم اون اسکرولش رو وقتی سمت راست و چپ میکشم دوباره به حالت اول برمیکرده ولی با کلیک روی + و - مقدار زوم رو درست نمایش میده.به نظرتون مشکل کجاست ؟

Private Sub CreateStatusBar()

StatusBar = CommandBars.StatusBar
StatusBar.Visible = True
StatusBar.AddPane(0)
StatusBar.IdleText = "Ready"


Dim Pane As XtremeCommandBars.StatusBarPane
Pane = StatusBar.AddPane(ID_INDICATOR_ZOOM)
Pane.Text = "100%"
Pane.Button = True
Pane.ToolTip = "Zoom level. Click to open the Zoom dialog box."
Pane.Caption = "&Zoom"
Pane.BeginGroup = False
Pane.SetPadding(8, 0, 8, 0)


Dim SliderPane As XtremeCommandBars.StatusBarSliderPane
SliderPane = StatusBar.AddSliderPane(ID_INDICATOR_ZOOMSLIDER)
SliderPane.Width = 130
SliderPane.Min = 0
SliderPane.Max = 200
SliderPane.Value = 100
SliderPane.SetTicks(100)
SliderPane.Caption = "&Zoom Slider"
SliderPane.BeginGroup = False
SliderPane.ToolTip = "Zoom"
SliderPane.SetTooltipPart(XtremeCommandBars.XTPSli derCommand.XTP_SB_LINELEFT, "Zoom Out")
SliderPane.SetTooltipPart(XtremeCommandBars.XTPSli derCommand.XTP_SB_LINERIGHT, "Zoom In")
ViewZoom = 100

End Sub



Private Sub StatusBar_PaneClick(ByVal Pane As XtremeCommandBars.StatusBarPane, ByVal Command As XtremeCommandBars.XTPSliderCommand, ByVal Pos As Long) Handles StatusBar.SliderPaneClick
Dim nZoom As Long


nZoom = ViewZoom


Select Case Command
Case XtremeCommandBars.XTPSliderCommand.XTP_SB_LEFT : nZoom = 0
Case XtremeCommandBars.XTPSliderCommand.XTP_SB_RIGHT : nZoom = 200


Case XtremeCommandBars.XTPSliderCommand.XTP_SB_LINELEFT : nZoom = Math.Max((Int(nZoom / 10) - 1) * 10, 0)
Case XtremeCommandBars.XTPSliderCommand.XTP_SB_LINERIGH T : nZoom = Math.Min((Int(nZoom / 10) + 1) * 10, 200)


Case XtremeCommandBars.XTPSliderCommand.XTP_SB_THUMBTRA CK : nZoom = ViewZoom


Case XtremeCommandBars.XTPSliderCommand.XTP_SB_PAGELEFT : nZoom = Math.Max(nZoom - 20, 0)
Case XtremeCommandBars.XTPSliderCommand.XTP_SB_PAGERIGH T : nZoom = Math.Min(nZoom + 20, 200)
End Select


If nZoom = ViewZoom Then
Else
ViewZoom = nZoom
Pane.Value = nZoom
StatusBar.FindPane(ID_INDICATOR_ZOOM).Text = nZoom & "%"


End If


End Sub

[samiasoft]

دوستان نظری ندارید؟ این مشکل منو کلافه کرده:متفکر:

[samiasoft]

با کمک یکی از دوستان عزیز مشکل حل شد...قرار میدم اینجا شاید برای کسی مفید باشه

Private Sub StatusBar_SliderPaneClick(ByVal Pane As XtremeCommandBars.StatusBarSliderPane, ByVal Command As XtremeCommandBars.XTPSliderCommand, ByVal Pos As Long) Handles StatusBar.SliderPaneClick Dim nZoom As Long


nZoom = ViewZoom


Select Case Command
Case XtremeCommandBars.XTPSliderCommand.XTP_SB_LEFT : nZoom = 0
Case XtremeCommandBars.XTPSliderCommand.XTP_SB_RIGHT : nZoom = 200


Case XtremeCommandBars.XTPSliderCommand.XTP_SB_LINELEFT : nZoom = Math.Max((Int(nZoom / 10) - 1) * 10, 0)
Case XtremeCommandBars.XTPSliderCommand.XTP_SB_LINERIGH T : nZoom = Math.Min((Int(nZoom / 10) + 1) * 10, 200)


Case XtremeCommandBars.XTPSliderCommand.XTP_SB_THUMBTRA CK : nZoom = Pos


Case XtremeCommandBars.XTPSliderCommand.XTP_SB_PAGELEFT : nZoom = Math.Max(nZoom - 20, 0)
Case XtremeCommandBars.XTPSliderCommand.XTP_SB_PAGERIGH T : nZoom = Math.Min(nZoom + 20, 200)
End Select


If nZoom = ViewZoom Then
Else
ViewZoom = nZoom




Pane.Value = nZoom
StatusBar.FindPane(ID_INDICATOR_ZOOM).Text = nZoom & "%"


End If






End Sub