Office: Formular Symbol ändern?!?

Hier mal was ganz neues!

Kann man irgendwie das blöde Formular-Symbol in der oberen linken Ecke, ja genau diese blöde Tabelle in blau-weiß-schwarz, durch ein cooles Symbol aus tauschen?

:)

 

folgende Lösung:

beim laden des Start formulars ----->
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
ÄndernEigenschaft "AppIcon", DB_Text, "FORML.ICO"

suchst dir irgendeine *.ICO Datei,
stellst sie in deinen Ordner in dem deine DB ist
gibst in der ereinisproz. den entsprechenden Dateinamen an.


in den allgemeinen Funktionen kommt noch die Funkt. Ändern Eigenschaften

'********************************
Function ÄndernEigenschaft(strEigName As String, varEigTyp As Variant, varEigWert As Variant) As Integer
Dim dbs As Object, Eig As Variant
Const conEigNichtgefundenFehler = 3270

Set dbs = CurrentDb
On Error GoTo Ändern_Fehler
dbs.Properties(strEigName) = varEigWert
ÄndernEigenschaft = True

Ändern_Ende:
Exit Function

Ändern_Fehler:
If Err = conEigNichtgefundenFehler Then ' Eigenschaft nicht gefunden.
Set Eig = dbs.CreateProperty(strEigName, _
varEigTyp, varEigWert)
dbs.Properties.Append Eig
Resume Next
Else
' Unbekannter Fehler.
ÄndernEigenschaft = False
Resume Ändern_Ende
End If
End Function
'*******************************

und das bisschen wird deine Wünsche erfüllen... hoffe ich völlig schuldlos

*cool.gif*

 

Hallo,

war die Frage nach dem Symbol der Anwendungsinstanz oder ging es um einzelne Formulare? Im zweiten Fall, schau Dir doch mal diesen Beitrag an:

 

Hallo noch mal,

ich habe das was Schuldlos vorschlägt ausprobiert, hat jedoch nicht funktioniert.

Ich glaube das man mit diesem Code auch nur das Access-Icon austauschen kann wenn überhaupt!

Alexander Jan Peters lag da glaube ich schon ganz nach dran. Das Zweitehre habe ich gemeint!!!

Habe auch hier den Code ausprobiert jedoch ohne erfolg!!!
Code läuft ohne Fehler und Resultat durch *confused.gif*

Wenn jemand noch eine Idee hat wäre ich sehr daran interessiert!!!

 

Hallo,

wie hast Du denn
API: Put a custom icon in the form's caption bar angewendet?

Wenn Du den Kode in ein eigenes Modul kopierst und beim Load Event der Form
SetFormIcon Me.hWnd, "Pfad\Zum\Icon.ico"
benutzt, sollte es aber doch gelingen.

 

Danke für eure Hilfe,

jetzt funktioniert die Sache!

Der Funktionsaufruf war der Haken:
FormSetFormIcon Me.hWnd, "Pfad\Zum\Icon.ico"

Danke nochmals!!!!