Having some trouble with MulticolumnComboBox properties...
How do you remove the column headers and how do you control the height of the grid view?
I'd like it to only be as high as the number of rows.
It's set at a specific height which leaves some trailing rows which look like empty space underneath.
I'm coding in VB.
Thanks in advance.
Private Sub LoadDetailsTable() |
Dim table As New DataTable("Belegungseinheit") |
table.Columns.Add("Belegungseinheit_ID", GetType(Integer)) |
table.Columns.Add("Konzept_ID", GetType(String)) |
table.Columns.Add("Gattung_ID", GetType(Integer)) |
table.Columns.Add("Medium_ID", GetType(Integer)) |
table.Columns.Add("Ausgaben_ID", GetType(Integer)) |
table.Columns.Add("Erscheinungsweise", GetType(String)) |
table.Columns.Add("verbr_Auflage", GetType(Integer)) |
table.Columns.Add("HH_RW", GetType(Integer)) |
table.Columns.Add("ET1", GetType(DateTime)) |
table.Columns.Add("ET2", GetType(DateTime)) |
table.Columns.Add("Anzahl_Spalten", GetType(Integer)) |
table.Columns.Add("Breite_mm", GetType(Integer)) |
table.Columns.Add("Hoehe_mm", GetType(Integer)) |
''table.Columns.Add("Platzierung_ID", GetType(Integer)) |
''table.Columns.Add("Umrechnungsfaktor", GetType(Double)) |
''table.Columns.Add("Farb_ID", GetType(Integer)) |
''table.Columns.Add("mm_Preis", GetType(Double)) |
table.Columns.Add("Farbzuschlag_Pro", GetType(Double)) |
table.Columns.Add("Farbzuschlag_Euro", GetType(Double)) |
table.Columns.Add("FZ_Rabatt", GetType(Boolean)) |
table.Columns.Add("FZ_AE", GetType(Boolean)) |
table.Columns.Add("Festpreis", GetType(Double)) |
table.Columns.Add("Kombi_Rabatt", GetType(Double)) |
table.Columns.Add("Mengen_Rabatt", GetType(Double)) |
table.Columns.Add("Sonder_Rabatt", GetType(Double)) |
table.Columns.Add("Zuschlag_Pro", GetType(Double)) |
table.Columns.Add("Zuschlag_Euro", GetType(Double)) |
'table.Columns.Add("AE", GetType(Double)) |
table.Columns.Add("Netto", GetType(Double)) |
table.Columns.Add("Netto_Honorar", GetType(Double)) |
''table.Columns.Add("Skonto", GetType(Integer)) |
''table.Columns.Add("Vereinbarung", GetType(Boolean)) |
table.Columns.Add("Insertionsnummer", GetType(String)) |
table.Columns.Add("MA_Code", GetType(String)) |
table.Columns.Add("SchaltungsNr", GetType(String)) |
table.Columns.Add("Storno", GetType(Boolean)) |
For Each row As DataRow In Me.Anzeigenverwaltung_DEVDataSet.Belegungeinheit.Rows |
table.Rows.Add(row("Belegungseinheit_ID"), row("Konzept_ID"), row("Gattung_ID"), row("Medium_ID"), row("Ausgaben_ID"), row("Erscheinungsweise"), row("verbr_Auflage"), row("HH_RW"), row("ET1"), row("ET2"), row("Anzahl_Spalten"), row("Breite_mm"), row("Hoehe_mm"), row("Farbzuschlag_Pro"), row("Farbzuschlag_Euro"), row("FZ_Rabatt"), row("FZ_AE"), row("Festpreis"), row("Kombi_Rabatt"), row("Mengen_Rabatt"), row("Sonder_Rabatt"), row("Zuschlag_Pro"), row("Zuschlag_Euro"), row("Netto"), row("Netto_Honorar"), row("Insertionsnummer"), row("MA_Code"), row("SchaltungsNr"), row("Storno")) |
'table.Rows.Add(row("Belegungseinheit_ID"), row("Konzept_ID"), row("Gattung_ID"), row("Medium_ID"), row("Ausgaben_ID"), row("Erscheinungsweise"), row("verbr_Auflage"), row("HH_RW"), row("Hoehe_mm"), row("Anzahl_Spalten"), row("Breite_mm"), row("Farbzuschlag_Pro"), row("Farbzuschlag_Euro"), row("FZ_Rabatt"), row("FZ_AE"), row("Festpreis"), row("Kombi_Rabatt"), row("Mengen_Rabatt"), row("Sonder_Rabatt"), row("Zuschlag_Pro"), row("Zuschlag_Euro"), row("Netto"), row("Netto_Honorar"), row("Insertionsnummer"), row("MA_Code"), row("SchaltungsNr"), row("Storno")) |
'table.Rows.Add(row("Belegungseinheit_ID"), row("Konzept_ID"), row("Gattung_ID"), row("Medium_ID"), row("Ausgaben_ID"), row("Erscheinungsweise"), row("verbr_Auflage"), row("HH_RW"), row("ET1"), row("ET2"), row("Anzahl_Spalten"), row("Breite_mm"), row("Hoehe_mm"), row("Farbzuschlag_Pro"), row("Farbzuschlag_Euro"), row("FZ_Rabatt"), row("FZ_AE"), row("Festpreis"), row("Kombi_Rabatt"), row("Mengen_Rabatt"), row("Sonder_Rabatt"), row("Zuschlag_Pro"), row("Zuschlag_Euro"), row("Netto"), row("Netto_Honorar"), row("Insertionsnummer"), row("MA_Code"), row("SchaltungsNr"), row("Storno")) |
Next row |
Dim template As New GridViewTemplate(Me.rgvDaten) |
template.Caption = "Belegungseinheit" |
template.DataSource = table |
template.AllowEditRow = True |
template.AllowRowResize = True |
template.ShowColumnHeaders = False |
template.AllowAddNewRow = False |
'template.Columns("Gattung_ID").DisableHTMLRendering = False |
template.Columns("Gattung_ID").Width = 100 |
template.Columns("Medium_ID").Width = 100 |
template.Columns("Ausgaben_ID").Width = 100 |
template.Columns("Erscheinungsweise").Width = 100 |
template.Columns("verbr_Auflage").Width = 100 |
template.Columns("HH_RW").Width = 90 |
'template.Columns("ET1").DisableHTMLRendering = False |
'template.Columns("ET2").DisableHTMLRendering = False |
template.Columns("Anzahl_Spalten").BestFit() |
template.Columns("Breite_mm").BestFit() |
template.Columns("Hoehe_mm").BestFit() |
' ''template.Columns("Platzierung_ID").Width = 40 |
template.Columns("Farbzuschlag_Pro").BestFit() |
template.Columns("Farbzuschlag_Euro").BestFit() |
template.Columns("FZ_Rabatt").Width = 75 |
template.Columns("FZ_AE").Width = 50 |
template.Columns("Festpreis").BestFit() |
template.Columns("Kombi_Rabatt").BestFit() |
template.Columns("Mengen_Rabatt").BestFit() |
template.Columns("Sonder_Rabatt").BestFit() |
template.Columns("Zuschlag_Pro").BestFit() |
template.Columns("Zuschlag_Euro").BestFit() |
' ''template.Columns("AE").Width = 40 |
template.Columns("Netto").BestFit() |
template.Columns("Netto_Honorar").BestFit() |
' ''template.Columns("Skonto").Width = 25 |
' ''template.Columns("Vereinbarung").Width = 25 |
template.Columns("Insertionsnummer").Width = 120 |
template.Columns("MA_Code").Width = 120 |
template.Columns("SchaltungsNr").Width = 120 |
'template.Columns("Storno").DisableHTMLRendering = False |
template.Columns("Storno").Width = 100 |
Me.rgvDaten.MasterGridViewTemplate.ChildGridViewTemplates.Insert(0, template) |
Dim relation As New GridViewRelation(Me.rgvDaten.MasterGridViewTemplate) |
relation.ChildTemplate = template |
relation.ParentColumnNames.Add("Belegungseinheit_ID") |
relation.ChildColumnNames.Add("Belegungseinheit_ID") |
Me.rgvDaten.Relations.Add(relation) |
Dim viewDef As New HtmlViewDefinition() |
viewDef.RowTemplate.Rows.Add(New RowDefinition()) |
viewDef.RowTemplate.Rows.Add(New RowDefinition()) |
viewDef.RowTemplate.Rows.Add(New RowDefinition()) |
viewDef.RowTemplate.Rows.Add(New RowDefinition()) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Gattung_ID", 0, 1, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Medium_ID", 0, 2, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Ausgaben_ID", 0, 2, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Erscheinungsweise", 0, 2, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("verbr_Auflage", 0, 1, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("HH_RW", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("ET1", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("ET2", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Anzahl_Spalten", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Breite_mm", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Hoehe_mm", 0, 1, 1)) |
''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Platzierung_ID", 0, 1, 1)) |
''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Umrechnungsfaktor", 0, 1, 1)) |
''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Farb_ID", 0, 1, 1)) |
''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("mm_Preis", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Farbzuschlag_Pro", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Farbzuschlag_Euro", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("FZ_Rabatt", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("FZ_AE", 0, 1, 1)) |
viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Festpreis", 0, 1, 1)) |
viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Kombi_Rabatt", 0, 1, 1)) |
viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Mengen_Rabatt", 0, 1, 1)) |
viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Sonder_Rabatt", 0, 1, 1)) |
viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Zuschlag_Pro", 0, 1, 1)) |
viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Zuschlag_Euro", 0, 1, 1)) |
''viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("AE", 0, 1, 1)) |
viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Netto", 0, 1, 1)) |
viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Netto_Honorar", 0, 2, 1)) |
''viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Skonto", 0, 1, 1)) |
''viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Vereinbarung", 0, 1, 1)) |
viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("Insertionsnummer", 0, 2, 1)) |
viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("MA_Code", 0, 2, 1)) |
viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("SchaltungsNr", 0, 2, 1)) |
viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("Storno", 0, 1, 1)) |
Me.rgvDaten.MasterGridViewTemplate.ChildGridViewTemplates(0).ViewDefinition = viewDef |
End Sub |
Private Sub LoadDUPTable() |
Dim table As New DataTable("DUP") |
table.Columns.Add("DUP_ID", GetType(Integer)) |
table.Columns.Add("Verlag", GetType(String)) |
table.Columns.Add("Strasse", GetType(String)) |
table.Columns.Add("PLZ", GetType(String)) |
table.Columns.Add("Ort", GetType(String)) |
table.Columns.Add("Ansprechpartner_Anzeigen_Anrede", GetType(String)) |
table.Columns.Add("Ansprechpartner_Anzeigen_Name", GetType(String)) |
table.Columns.Add("Tel_Anzeige", GetType(String)) |
table.Columns.Add("Fax_Anzeige", GetType(String)) |
table.Columns.Add("Ansprechpartner_Technik_Anrede", GetType(String)) |
table.Columns.Add("Ansprechpartner_Technik_Name", GetType(String)) |
table.Columns.Add("Tel_Technik", GetType(String)) |
table.Columns.Add("Fax_Technik", GetType(String)) |
table.Columns.Add("Email_Technik", GetType(String)) |
table.Columns.Add("ISDN", GetType(String)) |
table.Columns.Add("DU_Datum", GetType(DateTime)) |
table.Columns.Add("DU_Uhrzeit", GetType(DateTime)) |
table.Columns.Add("Vorlage_liegt_vor", GetType(Boolean)) |
table.Columns.Add("Beleg_liegt_vor", GetType(Boolean)) |
table.Columns.Add("Bemerkung", GetType(String)) |
table.Columns.Add("Belegungseinheit_ID", GetType(Integer)) |
For Each row As DataRow In Me.Anzeigenverwaltung_DEVDataSet.DUP.Rows |
table.Rows.Add(row("DUP_ID"), row("Verlag"), row("Strasse"), row("PLZ"), row("Ort"), row("Anprechpartner_Anzeigen_Anrede"), row("Ansprechpartner_Anzeigen_Name"), row("Tel_Anzeige"), row("Fax_Anzeige"), row("Ansprechpartner_Technik_Anrede"), row("Ansprechpartner_Technik_Name"), row("Tel_Technik"), row("Fax_Technik"), row("Email_Technik"), row("ISDN"), row("DU_Datum"), row("DU_Uhrzeit"), row("Vorlage_liegt_vor"), row("Beleg_liegt_vor"), row("Bemerlung"), row("Belegungseinheit_ID")) |
Next row |
Dim template As New GridViewTemplate(Me.rgvDaten) |
template.Caption = "DUP" |
template.DataSource = table |
template.AllowAutoSizeColumns = True |
template.AllowEditRow = True |
template.AllowRowResize = True |
template.ShowColumnHeaders = False |
'template.AllowAddNewRow = False |
Me.rgvDaten.MasterGridViewTemplate.ChildGridViewTemplates.Insert(0, template) |
Dim relation As New GridViewRelation(Me.rgvDaten.MasterGridViewTemplate) |
relation.ChildTemplate = template |
relation.ParentColumnNames.Add("Kurz_Beleg_ID") |
relation.ChildColumnNames.Add("Kurz_Beleg_ID") |
Me.rgvDaten.Relations.Add(relation) |
Dim viewDef As New HtmlViewDefinition() |
viewDef.RowTemplate.Rows.Add(New RowDefinition()) |
viewDef.RowTemplate.Rows.Add(New RowDefinition()) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Verlag", 0, 1, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Strasse", 0, 2, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("PLZ", 0, 1, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Ort", 0, 2, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Ansprechpartner_Anzeigen_Anrede", 0, 1, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Ansprechpartner_Anzeigen_Name", 0, 1, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Tel_Anzeige", 0, 1, 1)) |
viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Fax_Anzeige", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Ansprechpartner_Technik_Anrede", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Ansprechpartner_Technik_Name", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Tel_Technik", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Fax_Technik", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Email_Technik", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("ISDN", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("DU_Datum", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("DU_Uhrzeit", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Vorlage_liegt_vor", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Beleg_liegt_vor", 0, 1, 1)) |
viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Bemerkung", 0, 1, 1)) |
Me.rgvDaten.MasterGridViewTemplate.ChildGridViewTemplates(0).ViewDefinition = viewDef |
End Sub |
Hi there,
I am using Rad Carousel in my application which consists of buttons, using which we will be calling another application(s) which have been published using click once. When that published application(s) are installed , the installation path were set by the application, now my requirement is to call that installed application(s) . On click of the button on the carousel control, it must dynamically fetch the path of the published application(s) and the published application(s) must open. Does Telerik offer any control or feature using which this can be achieved.
FYI...
I have tried using Registry. i am trying to search for registry key by value using vb.net.
The registry hold the application path but i am unable to dynamically get the registry key path. The value of registry is known.
Can you please suggest.
Thanks,
Satyajeet