I am trying to validate a change to a property from within a propertygrid that requires a password. I am trying to capture the ValueChanging event for the underlying editor. If a form is launched from within the event handler and the change is not cancelled, an ArgumentOutOfRangeException ends up being thrown sometime after the event handler returns. I have attached a simple example that throws the exception. In it there is a simple Yes/No message box. If Yes is answered -> Exception is thrown. Any help is much appreciated. Thank you
Enum type and simple class edited by the Property Grid.
public enum EnumeratedProp { FirstItem, SecondItem, ThirdItem}public class TestProps{ [DisplayName("Formula Lock Active")] [Description("Indicates whether custom formulas can be locked to prevent editing")] public EnumeratedProp TestProp { get; set; }}
Form Code
public partial class TestPropsForm : Form{ public TestProps tstProps = new TestProps(); public TestPropsForm() { InitializeComponent(); radPropGrid.SelectedObject = tstProps; } private void radPropGrid_EditorInitialized(object sender, Telerik.WinControls.UI.PropertyGridItemEditorInitializedEventArgs e) { if(e.Item.Name == "TestProp") { e.Editor.ValueChanging += TestProp_ValueChanging; } } private void TestProp_ValueChanging(object sender, Telerik.WinControls.UI.ValueChangingEventArgs e) { e.Cancel = (MessageBox.Show("Are you sure you want to change this?", "Question", MessageBoxButtons.YesNo) != DialogResult.Yes); }}
First, I'm sorry if the question is not at the correct place.
I have an application that uses FiddlerCore4.dll
I use the following to installe Fiddler's certificate:
public static bool InstallCertificate()
{
if (!string.IsNullOrEmpty(certmakerBcCert))
{
FiddlerApplication.Prefs.SetStringPref("fiddler.certmaker.bc.key", certmakerBcKey);
FiddlerApplication.Prefs.SetStringPref("fiddler.certmaker.bc.cert", certmakerBcCert);
}
if (!CertMaker.rootCertExists())
{
//CLog.writeNoLogInDB("Creating SSL certificate");
if (!CertMaker.createRootCert())
return false;
if (!CertMaker.trustRootCert())
return false;
FiddlerApplication.Prefs.SetBoolPref("fiddler.certmaker.PreferCertEnroll", true);
certmakerBcCert = FiddlerApplication.Prefs.GetStringPref("fiddler.certmaker.bc.cert", null);
certmakerBcKey = FiddlerApplication.Prefs.GetStringPref("fiddler.certmaker.bc.key", null);
}
return true;
}
However, for firefox, I need to import them manually. How can I ensure through code they are also installed in Firefox? Been looking how to do it for a while.
My application needs to be user friendly, so using Fiddler application to generate Root certificates, and then import them in Firefox is complicated for users.
Thanks

Hello,
We were looking to implement WinForms RadGridView in a small window application that consumes a RestAPI.
We would like to use custom paging in that case to send the page size, and possibly filters to the API. We see that we can get the page size and index yet we can't set the total count for the grid when we get a result back from the API.
In Web we can use custom paging by setting AllowCustomPaging = true and we can set the total item count which will affect the pager control showed pages by setting VirtualItemCount.
Can we do the same in WinForms GridView?
A sample would be great.
Thanks

If you change the size of the buttons on the rad spin editor, they disappear.
I'm using VB Winforms.
I place a rad spin editor on the form.
I edit the properties of the spin editor using " Edit UI Elements".
On RadSpinElementUpButton make autosize to "False"
Change the width to 30.
It looks good in design view but run it and the buttons dissapear, also if you copy and paste it they also disappear.

Point location = grid.PointToScreen(grid.GetCellDisplayRectangle(3, 1, false).Location);I'm using Progress OpenEdge 11.6 and I'm implementing a RadPropertyGrid that contains a property of type System.Drawing.Font.
When The Font property is displayed it automatically includes an expandable section which I want to keep, but some of the options are irrelavent to this app and I want to hide or remove them.
After reviewing the documentation and the other forum threads here, I tried the following code:
/*------------------------------------------------------------------------------ Purpose: Notes:------------------------------------------------------------------------------*/@VisualDesigner.METHOD PRIVATE VOID Props_CreateItemElement( INPUT sender AS System.Object, INPUT e AS CreatePropertyGridItemElementEventArgs ): IF e:ITEM:parent <> ? AND e:ITEM:parent:Label = "Font" THEN IF e:ITEM:Label = "Unit" OR e:ITEM:Label = "GdiCharSet" OR e:ITEM:Label = "GdiVerticalFont" THEN e:ITEM:Visible = NO. RETURN.END METHOD.
This appears to work initially when I expand the Font Property, these three items are not there, but as soon as I change one of the properties (such as changing the Bold flag) the hidden items reappear.
Am I not using the appropriate event to do this? Did I miss an event?
Please help.

hi,
i need to access invisible row value for formatting current cell
i can do this with devexpress xtragrid
Private Sub GridView1_RowCellStyle(sender As Object, e As RowCellStyleEventArgs) Handles GridView1.RowCellStyle Try If Not IsNothing(e) Then If Not IsNothing(GridView1.GetRowCellValue(e.RowHandle, "mukellef_mukellefiyetler")) Then Dim Turu2() As String = GridView1.GetRowCellValue(e.RowHandle, "mukellef_mukellefiyetler").ToString.Split("|") Dim Turu As String = "" Dim muhdonem As String = "" If Turu2(2) <> "H" Or Turu2(2) <> "" Then muhdonem = Turu2(2) Select Case e.Column.Name Case "listeler_kesin" If Turu2(7) = "H" Then e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray Else Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_kesin_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.Appearance.BackColor = Color.Green e.Appearance.ForeColor = Color.Green Case "Onaylandı" e.Appearance.BackColor = Color.PaleGreen e.Appearance.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.Appearance.BackColor = Color.Red e.Appearance.ForeColor = Color.Red Case "Bu Ay Yok" e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray End Select End If Case "listeler_formba" If Turu2(4) = "H" Then e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray Else Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_formba_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.Appearance.BackColor = Color.Green e.Appearance.ForeColor = Color.Green Case "Onaylandı" e.Appearance.BackColor = Color.PaleGreen e.Appearance.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.Appearance.BackColor = Color.Red e.Appearance.ForeColor = Color.Red Case "Bu Ay Yok" e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray End Select End If Case "listeler_formbs" If Turu2(4) = "H" Then e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray Else Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_formbs_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.Appearance.BackColor = Color.Green e.Appearance.ForeColor = Color.Green Case "Onaylandı" e.Appearance.BackColor = Color.PaleGreen e.Appearance.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.Appearance.BackColor = Color.Red e.Appearance.ForeColor = Color.Red Case "Bu Ay Yok" e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray End Select End If Case "listeler_kdv2" If Turu2(1) = "H" Then e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray Else Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_kdv2_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.Appearance.BackColor = Color.Green e.Appearance.ForeColor = Color.Green Case "Onaylandı" e.Appearance.BackColor = Color.PaleGreen e.Appearance.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.Appearance.BackColor = Color.Red e.Appearance.ForeColor = Color.Red Case "Bu Ay Yok" e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray End Select End If Case "listeler_kdv1" If Turu2(0) = "H" Then e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray Else Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_kdv1_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.Appearance.BackColor = Color.Green e.Appearance.ForeColor = Color.Green Case "Onaylandı" e.Appearance.BackColor = Color.PaleGreen e.Appearance.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.Appearance.BackColor = Color.Red e.Appearance.ForeColor = Color.Red Case "Bu Ay Yok" e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray End Select End If Case "listeler_muh" If Turu2(2) = "H" Then e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray Else If Not ucaylikdonem And muhdonem = "3" Then e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray Else Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_muh_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.Appearance.BackColor = Color.Green e.Appearance.ForeColor = Color.Green Case "Onaylandı" e.Appearance.BackColor = Color.PaleGreen e.Appearance.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.Appearance.BackColor = Color.Red e.Appearance.ForeColor = Color.Red Case "Bu Ay Yok" e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray End Select End If End If Case "listeler_gecici" If Turu2(5) = "H" Then e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray Else Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_gecici_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.Appearance.BackColor = Color.Green e.Appearance.ForeColor = Color.Green Case "Onaylandı" e.Appearance.BackColor = Color.PaleGreen e.Appearance.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.Appearance.BackColor = Color.Red e.Appearance.ForeColor = Color.Red Case "Bu Ay Yok" e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray End Select End If Case "listeler_yillik" If Turu2(6) = "H" Then e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray Else Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_yillik_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.Appearance.BackColor = Color.Green e.Appearance.ForeColor = Color.Green Case "Onaylandı" e.Appearance.BackColor = Color.PaleGreen e.Appearance.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.Appearance.BackColor = Color.Red e.Appearance.ForeColor = Color.Red Case "Bu Ay Yok" e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray End Select End If Case "listeler_damga" If Turu2(3) = "H" Then e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray Else Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_damga_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.Appearance.BackColor = Color.Green e.Appearance.ForeColor = Color.Green Case "Onaylandı" e.Appearance.BackColor = Color.PaleGreen e.Appearance.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.Appearance.BackColor = Color.Red e.Appearance.ForeColor = Color.Red Case "Bu Ay Yok" e.Appearance.BackColor = Color.DimGray e.Appearance.ForeColor = Color.DimGray End Select End If End Select End If End If Catch ex As Exception MsgBox(ex.Message) End Try End Subi have several invisible columns like this
Me.rgw1.MasterTemplate.AllowAddNewRow = FalseMe.rgw1.MasterTemplate.AllowColumnReorder = FalseMe.rgw1.MasterTemplate.AllowSearchRow = TrueGridViewTextBoxColumn25.EnableExpressionEditor = FalseGridViewTextBoxColumn25.FieldName = "mukellef_unvani"GridViewTextBoxColumn25.HeaderText = "Ünvanı"GridViewTextBoxColumn25.Name = "clmUnvan"GridViewTextBoxColumn25.Width = 376GridViewTextBoxColumn26.AllowGroup = FalseGridViewTextBoxColumn26.AllowResize = FalseGridViewTextBoxColumn26.AllowSort = FalseGridViewTextBoxColumn26.EnableExpressionEditor = FalseGridViewTextBoxColumn26.FieldName = "mukellef_tc"GridViewTextBoxColumn26.HeaderText = "TC Kimlik"GridViewTextBoxColumn26.Name = "clmTC"GridViewTextBoxColumn26.ReadOnly = TrueGridViewTextBoxColumn26.TextAlignment = System.Drawing.ContentAlignment.MiddleCenterGridViewTextBoxColumn26.Width = 111GridViewTextBoxColumn27.AllowGroup = FalseGridViewTextBoxColumn27.AllowResize = FalseGridViewTextBoxColumn27.AllowSort = FalseGridViewTextBoxColumn27.EnableExpressionEditor = FalseGridViewTextBoxColumn27.FieldName = "mukellef_vn"GridViewTextBoxColumn27.HeaderText = "Vergi No"GridViewTextBoxColumn27.Name = "clmVergi"GridViewTextBoxColumn27.TextAlignment = System.Drawing.ContentAlignment.MiddleCenterGridViewTextBoxColumn27.Width = 111GridViewTextBoxColumn28.AllowGroup = FalseGridViewTextBoxColumn28.AllowResize = FalseGridViewTextBoxColumn28.AllowSort = FalseGridViewTextBoxColumn28.EnableExpressionEditor = FalseGridViewTextBoxColumn28.FieldName = "listeler_kdv1"GridViewTextBoxColumn28.HeaderText = "KDV1"GridViewTextBoxColumn28.Name = "clmKdv1"GridViewTextBoxColumn28.TextAlignment = System.Drawing.ContentAlignment.MiddleCenterGridViewTextBoxColumn29.AllowGroup = FalseGridViewTextBoxColumn29.AllowResize = FalseGridViewTextBoxColumn29.AllowSort = FalseGridViewTextBoxColumn29.EnableExpressionEditor = FalseGridViewTextBoxColumn29.FieldName = "listeler_kdv2"GridViewTextBoxColumn29.HeaderText = "KDV2"GridViewTextBoxColumn29.Name = "clmKdv2"GridViewTextBoxColumn29.TextAlignment = System.Drawing.ContentAlignment.MiddleCenterGridViewTextBoxColumn30.AllowGroup = FalseGridViewTextBoxColumn30.AllowResize = FalseGridViewTextBoxColumn30.AllowSort = FalseGridViewTextBoxColumn30.EnableExpressionEditor = FalseGridViewTextBoxColumn30.FieldName = "listeler_muh"GridViewTextBoxColumn30.HeaderText = "MUH"GridViewTextBoxColumn30.Name = "clmMuh"GridViewTextBoxColumn30.TextAlignment = System.Drawing.ContentAlignment.MiddleCenterGridViewTextBoxColumn31.AllowGroup = FalseGridViewTextBoxColumn31.AllowResize = FalseGridViewTextBoxColumn31.AllowSort = FalseGridViewTextBoxColumn31.EnableExpressionEditor = FalseGridViewTextBoxColumn31.FieldName = "listeler_damga"GridViewTextBoxColumn31.HeaderText = "DMG"GridViewTextBoxColumn31.Name = "clmDmg"GridViewTextBoxColumn31.TextAlignment = System.Drawing.ContentAlignment.MiddleCenterGridViewTextBoxColumn32.AllowGroup = FalseGridViewTextBoxColumn32.AllowResize = FalseGridViewTextBoxColumn32.AllowSort = FalseGridViewTextBoxColumn32.EnableExpressionEditor = FalseGridViewTextBoxColumn32.FieldName = "listeler_formba"GridViewTextBoxColumn32.HeaderText = "FBA"GridViewTextBoxColumn32.Name = "clmFormba"GridViewTextBoxColumn32.TextAlignment = System.Drawing.ContentAlignment.MiddleCenterGridViewTextBoxColumn33.AllowGroup = FalseGridViewTextBoxColumn33.AllowResize = FalseGridViewTextBoxColumn33.AllowSort = FalseGridViewTextBoxColumn33.EnableExpressionEditor = FalseGridViewTextBoxColumn33.FieldName = "listeler_formbs"GridViewTextBoxColumn33.HeaderText = "FBS"GridViewTextBoxColumn33.Name = "clmFormbs"GridViewTextBoxColumn33.TextAlignment = System.Drawing.ContentAlignment.MiddleCenterGridViewTextBoxColumn34.AllowGroup = FalseGridViewTextBoxColumn34.AllowResize = FalseGridViewTextBoxColumn34.AllowSort = FalseGridViewTextBoxColumn34.EnableExpressionEditor = FalseGridViewTextBoxColumn34.FieldName = "listeler_gecici"GridViewTextBoxColumn34.HeaderText = "GEÇ"GridViewTextBoxColumn34.Name = "clmGecici"GridViewTextBoxColumn34.TextAlignment = System.Drawing.ContentAlignment.MiddleCenterGridViewTextBoxColumn35.AllowGroup = FalseGridViewTextBoxColumn35.AllowResize = FalseGridViewTextBoxColumn35.AllowSort = FalseGridViewTextBoxColumn35.EnableExpressionEditor = FalseGridViewTextBoxColumn35.FieldName = "listeler_yillik"GridViewTextBoxColumn35.HeaderText = "YIL"GridViewTextBoxColumn35.Name = "clmyillik"GridViewTextBoxColumn35.TextAlignment = System.Drawing.ContentAlignment.MiddleCenterGridViewTextBoxColumn36.AllowGroup = FalseGridViewTextBoxColumn36.AllowResize = FalseGridViewTextBoxColumn36.AllowSort = FalseGridViewTextBoxColumn36.EnableExpressionEditor = FalseGridViewTextBoxColumn36.FieldName = "mukellef_sorumlu"GridViewTextBoxColumn36.HeaderText = "sorumlu"GridViewTextBoxColumn36.IsVisible = FalseGridViewTextBoxColumn36.Name = "clmsorumlu"GridViewTextBoxColumn37.AllowGroup = FalseGridViewTextBoxColumn37.AllowResize = FalseGridViewTextBoxColumn37.AllowSort = FalseGridViewTextBoxColumn37.EnableExpressionEditor = FalseGridViewTextBoxColumn37.FieldName = "mukellef_mukellefiyetler"GridViewTextBoxColumn37.HeaderText = "mukellefiyetler"GridViewTextBoxColumn37.IsVisible = FalseGridViewTextBoxColumn37.Name = "clmmukellefiyetler"GridViewTextBoxColumn38.AllowGroup = FalseGridViewTextBoxColumn38.AllowResize = FalseGridViewTextBoxColumn38.AllowSort = FalseGridViewTextBoxColumn38.EnableExpressionEditor = FalseGridViewTextBoxColumn38.FieldName = "mukellef_vd"GridViewTextBoxColumn38.HeaderText = "vd"GridViewTextBoxColumn38.IsVisible = FalseGridViewTextBoxColumn38.Name = "clmvd"GridViewTextBoxColumn39.AllowGroup = FalseGridViewTextBoxColumn39.AllowResize = FalseGridViewTextBoxColumn39.AllowSort = FalseGridViewTextBoxColumn39.EnableExpressionEditor = FalseGridViewTextBoxColumn39.FieldName = "mukellef_eposta"GridViewTextBoxColumn39.HeaderText = "eposta"GridViewTextBoxColumn39.IsVisible = FalseGridViewTextBoxColumn39.Name = "clmeposta"GridViewTextBoxColumn40.AllowGroup = FalseGridViewTextBoxColumn40.AllowResize = FalseGridViewTextBoxColumn40.AllowSort = FalseGridViewTextBoxColumn40.EnableExpressionEditor = FalseGridViewTextBoxColumn40.FieldName = "mukellef_sondonem"GridViewTextBoxColumn40.HeaderText = "sondonem"GridViewTextBoxColumn40.IsVisible = FalseGridViewTextBoxColumn40.Name = "clmsondonem"GridViewTextBoxColumn41.AllowGroup = FalseGridViewTextBoxColumn41.AllowResize = FalseGridViewTextBoxColumn41.AllowSort = FalseGridViewTextBoxColumn41.EnableExpressionEditor = FalseGridViewTextBoxColumn41.FieldName = "listeler_kdv1_aciklama"GridViewTextBoxColumn41.HeaderText = "listeler_kdv1_aciklama"GridViewTextBoxColumn41.IsVisible = FalseGridViewTextBoxColumn41.Name = "listeler_kdv1_aciklama"GridViewTextBoxColumn42.EnableExpressionEditor = FalseGridViewTextBoxColumn42.FieldName = "listeler_kdv2_aciklama"GridViewTextBoxColumn42.HeaderText = "listeler_kdv2_aciklama"GridViewTextBoxColumn42.IsVisible = FalseGridViewTextBoxColumn42.Name = "listeler_kdv2_aciklama"GridViewTextBoxColumn43.EnableExpressionEditor = FalseGridViewTextBoxColumn43.FieldName = "listeler_muh_aciklama"GridViewTextBoxColumn43.HeaderText = "listeler_muh_aciklama"GridViewTextBoxColumn43.IsVisible = FalseGridViewTextBoxColumn43.Name = "listeler_muh_aciklama"GridViewTextBoxColumn44.EnableExpressionEditor = FalseGridViewTextBoxColumn44.FieldName = "listeler_gecici_aciklama"GridViewTextBoxColumn44.HeaderText = "listeler_gecici_aciklama"GridViewTextBoxColumn44.IsVisible = FalseGridViewTextBoxColumn44.Name = "listeler_gecici_aciklama"GridViewTextBoxColumn45.EnableExpressionEditor = FalseGridViewTextBoxColumn45.FieldName = "listeler_yillik_aciklama"GridViewTextBoxColumn45.HeaderText = "listeler_yillik_aciklama"GridViewTextBoxColumn45.IsVisible = FalseGridViewTextBoxColumn45.Name = "listeler_yillik_aciklama"GridViewTextBoxColumn46.EnableExpressionEditor = FalseGridViewTextBoxColumn46.FieldName = "listeler_damga_aciklama"GridViewTextBoxColumn46.HeaderText = "listeler_damga_aciklama"GridViewTextBoxColumn46.IsVisible = FalseGridViewTextBoxColumn46.Name = "listeler_damga_aciklama"GridViewTextBoxColumn47.EnableExpressionEditor = FalseGridViewTextBoxColumn47.FieldName = "listeler_formba_aciklama"GridViewTextBoxColumn47.HeaderText = "listeler_formba_aciklama"GridViewTextBoxColumn47.IsVisible = FalseGridViewTextBoxColumn47.Name = "listeler_formba_aciklama"GridViewTextBoxColumn48.EnableExpressionEditor = FalseGridViewTextBoxColumn48.FieldName = "listeler_formbs_aciklama"GridViewTextBoxColumn48.HeaderText = "listeler_formbs_aciklama"GridViewTextBoxColumn48.IsVisible = FalseGridViewTextBoxColumn48.Name = "listeler_formbs_aciklama"but i cant access hidden columns value in radgrid like this
Private Sub rgw1_CellFormatting(sender As Object, e As CellFormattingEventArgs) Handles rgw1.CellFormatting Try If Not IsNothing(e) Then If Not IsNothing(e.CellElement.RowInfo.Cells("mukellef_mukellefiyetler")) Then Dim Turu2() As String = e.CellElement.RowInfo.Cells("mukellef_mukellefiyetler").ToString.Split("|") Dim Turu As String = "" Dim muhdonem As String = "" If Turu2(2) <> "H" Or Turu2(2) <> "" Then muhdonem = Turu2(2) e.CellElement.DrawFill = True Select Case e.Column.Name Case "listeler_kesin" If Turu2(7) = "H" Then e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray Else Turu = e.CellElement.RowInfo.Cells("listeler_kesin_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.CellElement.BackColor = Color.Green e.CellElement.ForeColor = Color.Green Case "Onaylandı" e.CellElement.BackColor = Color.PaleGreen e.CellElement.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.CellElement.BackColor = Color.Red e.CellElement.ForeColor = Color.Red Case "Bu Ay Yok" e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray End Select End If Case "listeler_formba" If Turu2(4) = "H" Then e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray Else Turu = e.CellElement.RowInfo.Cells("listeler_formba_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.CellElement.BackColor = Color.Green e.CellElement.ForeColor = Color.Green Case "Onaylandı" e.CellElement.BackColor = Color.PaleGreen e.CellElement.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.CellElement.BackColor = Color.Red e.CellElement.ForeColor = Color.Red Case "Bu Ay Yok" e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray End Select End If Case "listeler_formbs" If Turu2(4) = "H" Then e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray Else Turu = e.CellElement.RowInfo.Cells("listeler_formbs_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.CellElement.BackColor = Color.Green e.CellElement.ForeColor = Color.Green Case "Onaylandı" e.CellElement.BackColor = Color.PaleGreen e.CellElement.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.CellElement.BackColor = Color.Red e.CellElement.ForeColor = Color.Red Case "Bu Ay Yok" e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray End Select End If Case "listeler_kdv2" If Turu2(1) = "H" Then e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray Else Turu = e.CellElement.RowInfo.Cells("listeler_kdv2_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.CellElement.BackColor = Color.Green e.CellElement.ForeColor = Color.Green Case "Onaylandı" e.CellElement.BackColor = Color.PaleGreen e.CellElement.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.CellElement.BackColor = Color.Red e.CellElement.ForeColor = Color.Red Case "Bu Ay Yok" e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray End Select End If Case "listeler_kdv1" If Turu2(0) = "H" Then e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray Else Turu = e.CellElement.RowInfo.Cells("listeler_kdv1_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.CellElement.BackColor = Color.Green e.CellElement.ForeColor = Color.Green Case "Onaylandı" e.CellElement.BackColor = Color.PaleGreen e.CellElement.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.CellElement.BackColor = Color.Red e.CellElement.ForeColor = Color.Red Case "Bu Ay Yok" e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray End Select End If Case "listeler_muh" If Turu2(2) = "H" Then e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray Else If Not ucaylikdonem And muhdonem = "3" Then e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray Else Turu = e.CellElement.RowInfo.Cells("listeler_muh_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.CellElement.BackColor = Color.Green e.CellElement.ForeColor = Color.Green Case "Onaylandı" e.CellElement.BackColor = Color.PaleGreen e.CellElement.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.CellElement.BackColor = Color.Red e.CellElement.ForeColor = Color.Red Case "Bu Ay Yok" e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray End Select End If End If Case "listeler_gecici" If Turu2(5) = "H" Then e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray Else Turu = e.CellElement.RowInfo.Cells("listeler_gecici_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.CellElement.BackColor = Color.Green e.CellElement.ForeColor = Color.Green Case "Onaylandı" e.CellElement.BackColor = Color.PaleGreen e.CellElement.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.CellElement.BackColor = Color.Red e.CellElement.ForeColor = Color.Red Case "Bu Ay Yok" e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray End Select End If Case "listeler_yillik" If Turu2(6) = "H" Then e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray Else Turu = e.CellElement.RowInfo.Cells("listeler_yillik_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.CellElement.BackColor = Color.Green e.CellElement.ForeColor = Color.Green Case "Onaylandı" e.CellElement.BackColor = Color.PaleGreen e.CellElement.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.CellElement.BackColor = Color.Red e.CellElement.ForeColor = Color.Red Case "Bu Ay Yok" e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray End Select End If Case "listeler_damga" If Turu2(3) = "H" Then e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray Else Turu = e.CellElement.RowInfo.Cells("listeler_damga_aciklama").ToString.Split("|")(0) Select Case Turu Case "Onaylandı-Gönderildi" e.CellElement.BackColor = Color.Green e.CellElement.ForeColor = Color.Green Case "Onaylandı" e.CellElement.BackColor = Color.PaleGreen e.CellElement.ForeColor = Color.PaleGreen Case "Onaylanmadı" e.CellElement.BackColor = Color.Red e.CellElement.ForeColor = Color.Red Case "Bu Ay Yok" e.CellElement.BackColor = Color.DimGray e.CellElement.ForeColor = Color.DimGray End Select End If End Select End If End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub