PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » PureBasic - форум » Вопросы по PureBasic » Вопросы новичка (продолжение…)


Вопросы новичка (продолжение…)

Сообщений 961 страница 962 из 962

961

Значит FireFox стоит "браузером по умолчанию".

Исходя из описания функции
> Result = RunProgram(Filename$ [, Parameter$, WorkingDirectory$ [, Flags [, SenderProgram]]])

попробуй так

Prog=RunProgram("chrome.exe","https://mail.ru/","",#PB_Program_Open)

0

962

Здравствуйте. Помогите разобраться кто может. Есть код. Даже работает, но криво.  смысл в наполнении ComboBox из файла с сортировкой согласно введенных символов. проблема в том, что в самом Combo не отображаются символы и вообще возникает ощущение зависания. Где ошибка? Спасибо заранее

Procedure Sv_Spis(N_Okna.l,File.s,Mark.s)
  ClearGadgetItems (N_Okna)
A=Len(Mark)
  If ReadFile(2,File)
    While Eof(2) = #False
      S1.s=ReadString(2)
      If Mid(S1,1,A)=Mark
        b=1
      EndIf
    Wend
    CloseFile(2)
   EndIf
    If b=1
      SendMessage_(GadgetID(N_Okna),#CB_SHOWDROPDOWN,1,1)   
    EndIf
  EndProcedure

If OpenWindow(0, 0, 00, 1200, 800, "", #PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget| #PB_Window_ScreenCentered)
   
ComboBoxGadget(1, 400, 10, 300, 25,#PB_ComboBox_Editable )     

  Repeat
         Event.l = WaitWindowEvent()
         Select Event
     
           Case #PB_Event_Gadget
 
             Select EventGadget()
                 
               Case 1
              If GetGadgetText(1)<>Str_G.s 
                     
                Str_G.s=GetGadgetText(1)   
                Sv_Spis(1,"FileNaim",Str_G)
              EndIf
                           
                  EndSelect
      EndSelect 
    Until Event=#PB_Event_CloseWindow
  EndIf
  End

0


Вы здесь » PureBasic - форум » Вопросы по PureBasic » Вопросы новичка (продолжение…)