Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  .NET  
     
  Работа с флагами  
  Две функции для работы с флагами. Если вы не знаете, что это такое, поясню. Часто в одной переменной целого типа (обычно Integer или Long) хранится несколько логических значений. Каждое значение занимает один бит. Такое часто встречается в API-функциях.
Функция SetFlag устанавливает флаг, а функция GetFlag получает значение флага.
'Устанавливает флаг. Передаётся исходная переменная, устанавливаемый флаг и значение флага (True или False)
'Возвращается переменная, в которой установлен нужный флаг.
Public Function SetFlag(ByVal Flags As Integer, ByVal Flag As Flags, ByVal Value As Boolean) As Integer
     If Value = True Then
         Return (Flags Or Flag)
     Else
         Return (Flags And (Not Flag))
     End If
End Function

'Получает значение флага. Передаётся исходная переменная и флаг. Возвращается значение флага - True или False
Public Function GetFlag(ByVal Flags As Integer, ByVal Flag As Flags) As Boolean
     Return Convert.ToBoolean(Flags And Flag)
End Function
 
     
  VBNet online (всего: 52050)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам