Создать функцию

Предыдущая тема Следующая тема Перейти вниз

Создать функцию

Сообщение  SergeyA в Вт Июл 03, 2012 6:27 pm

Скачал FreeBasic, решил попробовать, синтаксис понравился, думаю буду на нём и дальше продолжать, но появилась проблема, как написать функцию??

Код:

Function GetMsg()
  GetMessage( @msg, 0, 0, 0 )
  TranslateMessage( @msg )
  DispatchMessage( @msg )
  Return msg.message
End Function

Вот полный код:

Код:

#Define WIN_INCLUDEALL
#Include "windows.bi"

Dim As MSG msg
Dim As HWND hWnd
Dim Shared EVENT_CLOSE As Integer = 273

hWnd = CreateWindowEx( 0, "#32770", "Test Gui", WS_OVERLAPPEDWINDOW Or WS_VISIBLE, 100, 100, 500, 300, 0, 0, 0, 0 )

While 1
   GetMessage( @msg, 0, 0, 0 )
  TranslateMessage( @msg )
  DispatchMessage( @msg )
  Select Case msg.message
     Case EVENT_CLOSE
        End
  End Select
Wend

И еще, что - то маловато русскоязычных форумов по FreeBasic, надеюсь данный форум не закроется Neutral
Заранее спасибо.

SergeyA

Сообщения : 9
Дата регистрации : 2012-07-03

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Создать функцию

Сообщение  trew в Вт Июл 03, 2012 7:29 pm

Это надо?

Код:

#Define WIN_INCLUDEALL
#Include "windows.bi"

Dim Shared As MSG msg
Dim As HWND hWnd
Dim Shared EVENT_CLOSE As Integer = 273

Function GetMsg()As Integer
     GetMessage( @msg, 0, 0, 0 )
      TranslateMessage( @msg )
      DispatchMessage( @msg )
      Return msg.message
End Function

hWnd = CreateWindowEx( 0, "#32770", "Test Gui", WS_OVERLAPPEDWINDOW Or WS_VISIBLE, 100, 100, 500, 300, 0, 0, 0, 0 )

While GetMsg()<>EVENT_CLOSE : Wend


trew

Сообщения : 331
Дата регистрации : 2010-10-14

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Создать функцию

Сообщение  SergeyA в Вт Июл 03, 2012 7:45 pm

Да, спасибо большое Smile

SergeyA

Сообщения : 9
Дата регистрации : 2012-07-03

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Создать функцию

Сообщение  Спонсируемый контент


Спонсируемый контент


Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения