HTML Link erstellen

[Mr.Vain]

Hallo,

ich habe eine Anwendung, die eine DB ausliest und in ein ListIconGadget ausgibt.

Als letzte Spalte möchte ich für jeden Eintrag folgendes haben:

sichtbar: Link - und wenn ich da dann draufklicke, soll eine HTML Website geöffnet werden mit einem dazugehörigen Link.


Wie mache ich dies am einfachsten?

[X360 Andy]

RunProgramm("http://google.de")

[Rudi]

Code: Alles auswählen

If OpenWindow(0, 0, 0, 500, 500, "Win", #PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered) 
  ListIconGadget(0, 5, 30, 490, 465, "URL",200) 
  AddGadgetItem(0, -1,"http://www.google.de/") 
  
  Repeat 
    EventID.l = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
        Case 0
          Select EventType()
            Case #PB_EventType_LeftClick
              RunProgram(GetGadgetItemText(0,0,0))
          EndSelect
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow 
EndIf 
End 

Wenn die URL auch noch blau und unterstrichen sein soll, dann die API-Profis fragen!

[Mr.Vain]

Danke für eure Hilfe, aber das ist wohl noch nicht 100% die Lösung.

So sieht mein ListIconGadget aus:


Spalte1 URL

Titel1 Link
Titel2 Link
Titel3 Link



======

"Link" soll jedes mal da stehen. Dahinter soll sich aber eine URL befinden: "http://www.google.de/#hl=de&source=hp&q=" wobei ganz am Ende der jeweilige Titel eingefügt werden soll. Prob is hier noch, dass bei Leerzeichen ein "+" gesetzt werden soll.

Dies soll aber nur passieren, wenn ich auch wirklich nur auf "Link" klicke.


Ich hoffe, dass ich mich richtig ausgedrückt habe.

[DarkDragon]

Das kannst du z.B. mit nem WebGadget machen und dann den Inhalt setzen mit ner Tabelle die in der letzten Spalte einen Link hat.

[Mr.Vain]

Ist das nicht eher etwas, um einen Link direkt im Programm zu starten ( ohne externen Browser ) ?

[TomS]

Code: Alles auswählen

Macro AddRow(gadget, position, title)
	AddGadgetItem(gadget, position,title + Chr(10) + "Link: http://www.google.de/#hl=de&source=hp&q="+title)
EndMacro 

If OpenWindow(0, 0, 0, 500, 500, "Win", #PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
	ListIconGadget(0, 5, 30, 490, 465, "Spalte1",150,#PB_ListIcon_FullRowSelect)
	AddGadgetColumn(0, 1, "URL", 300)
	AddRow(0,-1,"Titel")
	AddRow(0,-1,"purebasic")
	AddRow(0,-1,"halligalli")
	
	

 
  Repeat
    EventID.l = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
        Case 0
          Select EventType()
          	Case #PB_EventType_LeftClick
          		
          		
          		If WindowMouseX(0)>GadgetX(0)+GetGadgetItemAttribute(0, GetGadgetState(0),   #PB_ListIcon_ColumnWidth ,0)
          			RunProgram( ReplaceString(GetGadgetItemText(0,GetGadgetState(0),1), "Link: ",""))
          		EndIf 
          		
          EndSelect
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow
EndIf
End 

Anders imho nicht zu lösen (ohne Api). Das ListIconGadget ist in dieser Form nicht dafür ausgelegt, dass die Zellen einzeln ansprechbar sind.

EDIT: Was Dark Dragon meint, ist dass du das Webgadget anstatt dem ListIconGadget verwenden sollst.
Mit HTML kannst du auch ne Tabelle erstellen und das alles schön formatieren etc.
Die Links kannst du entweder mit target="_blank" im IE anzeigen lassen, oder mit dem Navigationscallback (siehe Hilfe) mit RunProgramm() im Standardbrowser öffnen lassen.

[Mr.Vain]

Danke, ich werds gleich morgen mal ausprobieren...

[DarkDragon]

EDIT: Was Dark Dragon meint, ist dass du das Webgadget anstatt dem ListIconGadget verwenden sollst.
Mit HTML kannst du auch ne Tabelle erstellen und das alles schön formatieren etc.
Die Links kannst du entweder mit target="_blank" im IE anzeigen lassen, oder mit dem Navigationscallback (siehe Hilfe) mit RunProgramm() im Standardbrowser öffnen lassen.

Danke fürs klarstellen .

[Mr.Vain]

@Tom$: Hab mal deine Variante getestet - funktioniert gut - danke !