Label Controls

michaeled314 · Post by **michaeled314** » Sat Nov 24, 2007 2:41 am

How would you replicate a Visual Basic Label Control in PB

netmaestro · Post by **netmaestro** » Sat Nov 24, 2007 3:30 am

TextGadget()

dhouston · Post by **dhouston** » Sat Nov 24, 2007 2:05 pm

TextGadget is close but it's not 100% identical as VB labels receive events while TextGadgets do not. If you need it clickable, I think you need a StringGadget (with #PB_String_ReadOnly).

milan1612 · Post by **milan1612** » Sat Nov 24, 2007 2:08 pm

...or add #SS_NOTIFY to the flags (windows only)

Edit:

Code: Select all

If OpenWindow(0, 0, 0, 130, 25, "TextGadget Events", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    TextGadget(1, 5, 5, 120, 18, "See? I'm clickable...", #SS_NOTIFY)

    Repeat
      Event = WaitWindowEvent()
      Select Event
        Case #PB_Event_CloseWindow : Break
        Case #PB_Event_Gadget
          If EventGadget() = 1
            MessageRequester("Event", "TextGagdet Event received...")
          EndIf 
      EndSelect
    ForEver
    End
  EndIf
EndIf