siggy

Zum Speichern und Anzeigen hilft dir ein String

Hey Technician Win 2000 wird hier sicherlich das Stichwort sein.

Danke dir... Du hast nicht zufällig auch die Datei für 2000 ???

Auf jeden Fall muss zuerst die Form mal sichtbar sein, also z.B. bei Form_Activate einbauen. Dann sieht es so aus, als ob diese Funktion nur das Fenster nach "Hinten", also hinter alle andere Fenster dieser Applikation (oder aller Programme?) legt. Das ist aber keine feste Eigenschaft der Form sondern nur so was wie bei der Reihenfolge der Controls einer VB-Form. Sobald ein anderes weiter hinten liegt (weil man es minimiert oder ähnliches) weil man das Fenster anklickt, kommt es natürlich wieder nach vorne. Eine Lösung wäre, dieses Fenster zu einem Control auf dem Screen zu machen. Was gehen könnte ist folgendes: nehme einen Frame auf einer Form und schreibe im Programm: set Frame.Container = Screen leider klappt das nicht (gerade probiert). Aber man kann eine Systemfunktion benutzen, heiss irgendwie "SetWindow". Mit der kann man sagen, dass das Framecontrol auf dem Desktop liegt. kenne ich aber nicht auswendig Vielleicht eine kleine Hilfe... :confused:

Tach zusammen, möchte für eine Vorführung das so schön "flatternde Fenster".bmp (Win9x/win 2000) während des Bootens durch ein eigenes Bmp ersetzen. Wer hat einen Tipp bzw Ideen oder besser, wer kennt den Namen des aufgerufenen bmp´s von Win?

ja, mach das mal... Nebenbei mal erwähnt, ich habs gerade ausprobiert mit einem blauen Pfeil... funzt !!! Um wiklich nur noch einen Pfeil zu sehen, muss man die frm.borderstyle=0 setzen (<kein> ). Allerdings kann man die Form dann nicht mehr beliebig verschieben. Und nun ist wieder Code gefragt um diesen "pfeil" auf der Oberfläche doch noch zu hin und her zu schaukeln... Viel Glück bin mal auf deine Erfolge gespannt (Vieleicht Beispiel Code) Gruß Siggy

Jo zack, hab ich zwar zusammenhängend (noch) nicht ausprobiert, so ist es aber zu verstehen. Blauer Pfeil, grüne frm. Obacht, es darf wirklich kein grün im Pfeil vorkommen. Durch RGB(bAlpha) kannst du allerdings die Farbe verändern. Gleiches dann folglich in der frm.backcolor = rgb(balpha).

Das sind ja gleich mehrere Dinge aufeinmal... Bmp durchsichtig geht sowieso nicht... Wenn dann schon gif. Habe eine imgbox mal schnell auf eine frm gelegt und siehe da, das gif war nur sichtbar... frm habe ich eine andere Farbe gegeben was mit der Funktion s.o. transparent gemacht werden könnte. Aber verschiedene Formen der frm und durchsichtig inklusive bmp/gif... try and error.

Klaro, folgende Funktion setzt eine Farbe (bAlpha) durchsichtig. Unter der Funktion SetLayeredWindowAttributes kann man eine RGB(.....) durchsichtig setzen. (Im Beispiel hellgrün) Also setzt dein BMP auf die Form, und die Form selber setzt du auf eine andere Farbe. Die noch sichtbaren Stücke der Form werden durchsichtig (Mit der Funktion abstimmen) Viel Spass Option Explicit ' Fenstereigenschaft setzen Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long ' Fenstereigenschaft auslesen Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long ' Attribut für Layered Window setzen Private Declare Function SetLayeredWindowAttributes Lib "user32" _ (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Boolean Private Const gwl_ExStyle = -20 Private Const ws_Ex_Layered = &H80000 Private Const lwa_Alpha = 2 Private Const lwa_ColorKey = 1 ' Windows-Version ermitteln Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Private Sub Form_Load() If Not CheckWinVersion Then MsgBox "Leider eine zu alte Windows-Version!" End End If Call SetWindowLong(hwnd, gwl_ExStyle, GetWindowLong(hwnd, gwl_ExStyle) Or ws_Ex_Layered) Call SetLayeredWindowAttributes(hwnd, RGB(0, 255, 0), 0, lwa_ColorKey) End Sub Private Function CheckWinVersion() As Boolean Dim lResult As Long Dim OSInfo As OSVERSIONINFO CheckWinVersion = False ' Windows-Version ermitteln OSInfo.dwOSVersionInfoSize = Len(OSInfo) lResult = GetVersionEx(OSInfo) If lResult <> 0 Then ' API-Aufruf war fehlerfrei: Rückgabestruktur untersuchen If OSInfo.dwPlatformId = 1 Then ' Windows 95/98/ME MsgBox CStr(OSInfo.dwMajorVersion) & "." & CStr(OSInfo.dwMinorVersion) If (OSInfo.dwMajorVersion >= 4 And OSInfo.dwMinorVersion > 90) Or _ (OSInfo.dwMajorVersion >= 5) Then ' Windows ME CheckWinVersion = True End If ElseIf OSInfo.dwPlatformId = 2 Then ' Windows NT/2000 If OSInfo.dwMajorVersion >= 5 Then ' Windows 2000 CheckWinVersion = True End If End If End If End Function

Hallöchen.. versuch mal dieses hier... Ist aus der AktiveVB und demonstriert ein ovales Formular Zu weiteren Info´s www.activeVB.de Viel Spass Option Explicit Private Declare Function CreateEllipticRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As _ Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal _ hwnd As Long, ByVal hRgn As Long, ByVal bRedraw _ As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () _ As Long Private Declare Function SendMessage Lib "user32"Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _ Long, ByVal wParam As Long, lParam As Any) As Long Private Const HTCAPTION = 2 Private Const WM_NCLBUTTONDOWN = &HA1 Private Sub Form_Load() Me.Picture = LoadPicture(App.Path & "\Back.gif") Call CreateReg End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single) If y / Screen.TwipsPerPixelY < 25 Then Call ReleaseCapture Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End If End Sub Private Sub CreateReg() Dim x&, y&, dx&, dy&, Result& With Me dx = .Width / Screen.TwipsPerPixelX dy = .Height / Screen.TwipsPerPixelY Result = CreateEllipticRgn(y + 1, x + 1, dx - 1, dy - 1) Call SetWindowRgn(.hwnd, Result, 1&) End With End Sub

Hallo Tobias, Mit Paint Shop Pro z.B. Ich persönlich weiß es ab Version 6 Viel Spaß