vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen & Antworten rund um sev-Komponenten
sevDataGrid und Icons unter Access 
Autor: P.Abrell
Datum: 05.09.19 12:36

Ich verwende sevDataGrid (nennen wird es sevGrid1) zur Anzeige von Daten aus einer Access-Tabelle.
Die kpl. Anwendung läuft unter Access 2007 (VBA), Zugriff ist DAO und sevGrid1.DataMode=Mode_Recordset.
Die Anzeige der Daten im Grid mittels zugewiesenem Recordsets <rsDaten> klappt einwandfrei.

Eine der Spalten ("Feld1") ist mit
rsDaten.Columns("Feld1").ColType = Type_Image OR Type_Text
für Image und Text vorbereitet. Die benötigen Icons wurden dem Grid im Vorfeld auch zuordnet:
With sevGrid1
  .MaskColor = vbMagenta  
  .UseMaskColor = True
  ' Icon mit Key für .ImageByKey() hinzufügen  
  sevGrid1.Icons.Add oIcons.Image(6705), "icoUser"   
End With
In der sevGrid1_RowLoaded() Routine sollte jetzt zusätztlich zum Feldinhalt der Zelle auch das Icon angezeigt werden, was es aber leider nicht tut. Nur der Text ist da, anstelle des Icons ist eine Leerstelle:
Private Sub sevGrid1_RowLoaded(ByVal nRow As Long, Item As Object)
  With Item
    .CellImage("Feld1") = sevGrid1.ImageByKey("icoUser")
  End With
End Sub
Was habe ich übersehen, wo liegt mein Denkfehler?
Vielen Dank.

P.Abrell
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDataGrid und Icons unter Access 
Autor: ModeratorDieter (Moderator)
Datum: 06.09.19 10:38

Hast du die Icons-Library auch zuvor mit dem korrekten Lizenz-Key initialisiert?
Ansonsten werden nämlich keine Icons "geladen" und auch nicht angezeigt.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDataGrid und Icons unter Access 
Autor: P.Abrell
Datum: 06.09.19 12:27

Zuerst mal vielen Dank.

Initialisiert wird in eigenem Modul (in dem auch andere Initialisierungen vorgenommen werden) wie folgt:
' Deklaration:
Public oIcons As New sevIconLibV3.IconLibrary
' Initialisierung
Public Function init_sevIcon() As Boolean
  Dim bResult As Boolean
  bResult = oIcons.Init("xxxx-xxxx-xxxx-xxxx")
  init_sevIcon = bResult
End Function
Verweis auf "sev.Soft Icon-Library v3" ist gesetzt.

Aber würde bei einem falschen Lizenzschlüssel die Function nicht False zurück geben?
Ich habe jedenfalls den Schlüssel geprüft und der entspricht dem mir mitgeteilten.
Zur Ergänzung: Es handelt sich um die Icon-Library in Verbindung mit sevCoolbar 3.0.

P.Abrell
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDataGrid und Icons unter Access 
Autor: ModeratorDieter (Moderator)
Datum: 06.09.19 12:29

Ja, das würde alles passen; aber ich kann das Problem partout nicht nachstellen;

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevDataGrid und Icons unter Access 
Autor: P.Abrell
Datum: 07.09.19 14:32

Um das Thema abzuschließen:
Ich habe die Coolbar deinstalliert und kpl. neu installiert und registriert.
Und jetzt klappt's - ohne irgendeine Code-Anpassung.
Was auch immer das war ... aber wahrscheinlich sitzt das größte Problem - wie immer - vor dem Bildschirm.
Danke dennoch.
Peter
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel