Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Русский_Проект: Изучение Visual Basic


Информационный Канал Subscribe.Ru

Здравствуйте!

У нас очередной выпуск рассылки после долгого перерыва. Сегодня у меня для вас очень важное сообщение! Я принял решение - данная рассылка с этого выпуска будет теперь полностью посвящена Visual Basic .NET, но не Visual Basic 6.0. На сайте пока еще будут выкладываться материалы VB 6.0, но не за горами тот день, когда и на сайте произойдут глобальные перемены. Изучение новой платформы отнимает очень много времени, но гораздо интереснее. Поэтому, если вы не собираетесь переходить на платформу .NET, то отписывайтесь от рассылки. Единственная тема, которая мне по-прежнему интересна в VB 6.0 - это применение функций Windows API. Тем более, что в VB .NET эти функции также широко применяются.

О Visual Basic .NET и cправочниках

Итак, страница по VB .NET находится по адресу http://rusproject.narod.ru/index_n.htm. Структура сайта будет схожа со страницами для VB 6.0, что поможет вам быстро освоиться. Как я уже сказал, в .NET Framework также широко используются функции Windows API. Поэтому возникала необходимость создания Справочника по функциям WinAPI для .NET Framework. В данном справочнике будут приводиться примеры функций Windows API для языков Visual Basic.NET и C# для платформ .NET Framework и .NET Compact Framework.

Прячем значок Пуск

Сегодня в выпуске пример использования функций API для .NET Compact Framework. Владельцы КПК знают, что в Windows Mobile также существует кнопка Пуск (если быть точным, значок), которая позволяет получить доступ к настройкам системы. С помощью пары функций можно спрятать этот значок

Const SHFS_SHOWTASKBAR As Integer = &H1
Const SHFS_HIDETASKBAR As Integer = &H2
Const SHFS_SHOWSIPBUTTON As Integer = &H4
Const SHFS_HIDESIPBUTTON As Integer = &H8
Const SHFS_SHOWSTARTICON As Integer = &H10
Const SHFS_HIDESTARTICON As Integer = &H20

<DllImport("aygshell.dll")>  _
Shared Function SHFullScreen(ByVal hwndRequester As IntPtr, _
  ByVal dwState As Integer) As Integer
End Function

<DllImport("coredll.dll")>  _
Public Shared Function GetCapture() As IntPtr
End Function

Private Sub Form1_Load(ByVal sender As Object, ByVal e As 

System.EventArgs)

   Capture = True
   Dim hwnd As IntPtr = GetCapture()
   Capture = False

   SHFullScreen(hwnd, SHFS_HIDESTARTICON)

End Sub

А на сегодня это все. Счастливого вам программирования!


Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.rusproject
Отписаться
Вспомнить пароль

В избранное