2 x Sp ang VB = 100 Point pr styk

sæt BorderStyle til "fixed dialog" for at den ikke skal vises i proceslinjen

Ved ikke lige hvad du mener med det andet?

Ok, Den bliver nu ikke vist i proces linien, Men jeg vil så gerne ved minimering smide den ned ved siden af uret og Icq osv osv
Faktisk ligesom Icq

MC

ok, Show in task bar kan gøre det samme, Men jeg har den stadig ikkenede ved siden af uret

Mc

nåeh - overså det med uret :P

Det ved jeg sq ikke... www.google.com ? ;)

Goggle er en kanon søgemaskine
Men hvad kan jeg lige bruge den til :-) når jeg ikke ved hvad jeg skal søge efter ? *S*

MC

Tror jeg selv har fundet ud af den med systrayen

MC

najs - hvad gjorde du? :D

læser ved ikke om det virker, men skriv lige hvis du finder ud af om det virker

http://www.vbexplorer.com/VBExplorer/unsup05.asp

MC

http://hjem.get2net.dk/sjh/eksperten/TrayMenu.zip

ser på det i morgen :)

sjh>>>

Findes der en snil måde hvor du lige kan fortælle mig hvordan jeg for det over i min egen form

eller må jeg arbejde videre i din form ???

MC

Du må godt arbejde videre må form.


IE <5
http://www.codeguru.com/internet/IEExtensions.html

Hvis der ikke kommer et ikon så prøv med:

'--- Toppen på Form1 ---
Const GUID As String = "{ECC5777A-6E88-BFCE-13CE-81F134789E7B}"
'--- Toppen på Form1 ---

videre må form. = videre på form.

Du kan også prøve at lave din egen GUID (er ikke sikker på om det virker til "Internet Explore Knap")

'Husk kun at lave den én gang da det ikke bliver det samme GUID.
'--------------------- Form1 ---------------------
Option Explicit

Private Declare Function CoCreateGuid Lib "ole32" (id As Any) As Long

Private Sub Form_Load()
  Me.Caption = CreateGUID
End Sub

Public Function CreateGUID() As String
Dim id(0 To 15) As Byte
Dim Cnt As Long
Dim GUID As String
  If CoCreateGuid(id(0)) = 0 Then
    For Cnt = 0 To 15
      CreateGUID = CreateGUID + IIf(id(Cnt) < 16, "0", "") + Hex$(id(Cnt))
    Next Cnt
    CreateGUID = Left$(CreateGUID, 8) + "-" + _
                Mid$(CreateGUID, 9, 4) + "-" + _
                Mid$(CreateGUID, 13, 4) + "-" + _
                Mid$(CreateGUID, 17, 4) + "-" + _
                Right$(CreateGUID, 12)
      Else
    MsgBox "Error while creating GUID!"
  End If
End Function
'--------------------- Form1 ---------------------

GUID måske mere rigtig.

'--------------------- Form1 ---------------------
Option Explicit

Private Type GUID
  Data1 As Long
  Data2 As Long
  Data3 As Long
  Data4(8) As Byte
End Type

Private Declare Function CoCreateGuid Lib "ole32.dll" (pguid As GUID) As Long
Private Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As Any, ByVal lpstrClsId As Long, ByVal cbMax As Long) As Long

Private Sub Form_Load()
  Me.Caption = CreateGUID
End Sub

Public Function CreateGUID() As String
Dim pudtGUID As GUID
Dim pstrGUID As String
Dim pbytGUID() As Byte
Dim plngRet As Long
  pbytGUID = String(40, 0)

  CoCreateGuid pudtGUID

  plngRet = StringFromGUID2(pudtGUID, VarPtr(pbytGUID(0)), 40)
  pstrGUID = pbytGUID
  If (Asc(Mid$(pstrGUID, plngRet, 1)) = 0) Then plngRet = plngRet - 1

CreateGUID = Left(pstrGUID, plngRet)
End Function
'--------------------- Form1 ---------------------

Kommer nok ikke til at kunne chekke om din IE ting virker for mig før weekenden er omme, men jeg syntes du har svaret godt nok til at få alle 200 point, men er det ok at jeg venter med at give point før jeg ved om det virker

MC

klart nok

Det med at lave sigt egen GUID virker ikke.

IE <5
http://www.codeguru.com/internet/IEExtensions.html
Hvis der ikke kommer et ikon så prøv med:

'--- Toppen på Form1 ---
Const GUID As String = "{ECC5777A-6E88-BFCE-13CE-81F134789E7B}"
'--- Toppen på Form1 ---

nu er weekenden vist omme ;)

DEt har du ret i, Jeg har sådanne lige mistet tiden til dette projekt så jeg lukker her og undskylder mange gange den sene svar tid

MC