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

VB.NET-World

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Интернет для бизнеса и не только" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Март 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
20.03.2003
21:08:56
23:28:49
21
22
23
24
25
26
27
28
29
30
31
Автор
Stripped

Статистика

401 подписчиков
0 за неделю
←   Все выпуски   →

VB.NET-World Выпуск номер4


Информационный Канал Subscribe.Ru
VB.NET - World
::Рассылка:.
  Архив
  Подписка

::Авторы:.
   Алексей
   Дмитрий

::Ссылки:.
   A.Prima
  VBNet.ru

::Друзья:.

Visual Basic: новости сайтов, советы, примеры кодов
Новости сайта 'Все о Паскале'
Все про Pascal

::Баннеры:.

VB.NET-World

SUPERTOP

Рейтинг@Mail.ru

Все о криптографии: статьи, исходники, книги и др.
Вот нашел время сверстать выпуск. Читайте, пожалуйста.

С наилучшими пожеланиями,
главный редактор VB.NET-World
Алексей Кувалин

Задать вопрос по рассылке можно отправив письмо в текстовом формате. Быстрый ответ по этому ящику гарантирован.


№ 4 (от 19.03.2003)
Содержание выпуска:
Компакт-диск по Visual BASIC!
Прочь все сомнения! Наконец-то вышел в свет долгожданный сборник всех исходников, кодов, утилит, документаций по Visual Basic!

Выдержки из меню:
  • исходники (30МБ)

  • документация (200МБ)

  • компоненты (40МБ)

  • утилиты (150МБ)

  • VB6.0 RUS (100МБ)

  • полезности (180МБ)


    • Цена диска 40 рублей + пересылка 35 рублей! Итого 75 рублей за полный комплект для профессионалов!

    Заказать >>>

    Компакт-диск "VB.NET-World"
    Стоит ли покупать?

    Когда-то, еще когда я был участником конфы "Сообча ВБ" меня посетила мысль создания компакт-диска для ВБ-программера, диска, который бы удовлетворил требования и профи и начинающего. Но воплотить идею в реальность получилось только в данный момент. Думаю, что в какой-то мере мне удалось одухотворить ранние перспективы. На диске представлены коллекция документационных материалов, включающий сайт рассылки "Мир программирования на Visual BASIC и HTML" с очень удобной навигацией, огромное количество учебников и книг по VB, около 11 инсталляционных программ, от самых простых, до полностью профессиональных пакетов. Инсталляция русской VB6. Очень большое количество примеров и исходников, компонентов. А самое главное, что представлены скины для любых проектов! Не обошлось и без полезных утилит. В общем весь VB в одном флаконе!

    Новые дополнения и изменения

    После решения обновить содержимое диска новыми программными продуктами, было добавлено:
    • несколько десятков исходных кодов и архивов с проектами;
    • архивы выпусков рассылки "VB.NET-World";
    • около 200 иконок и графических файлов для ваших проектов;
    • новые программы для создания инсталляционных и справочных пакетов;
    • документация, ранее не присутствовавшая на диске;
    Заказать >>>


    Публикации
    Из рубрики "Вопрос/Ответ" рассылки VBNet: проверка символов текста: True or False?

    Думаю, что многим программистам был интересен (или не был :) вопрос, соответствуют ли несколько первых символов текста образцу или нет. По этому поводу я задал вопрос в рассылке "Visual Basic: новости сайтов, советы, примеры кодов" и получил большое число решений данной проблемы, которые я и хочу вам предоставить.

    Вот такой вопрос: в текстбоксе есть определенный текст. Так вот что требуется: если первые 6 символов соответсвуют образцу (например If sixnumber = "sobaka" Then) то будет происходить какое-то действие. Как это осуществить?

    Автор ответа: Mind Engine 
    ok = "sobakadrugcheloveka"

If ok Like "sobaka*" Then MsgBox "Попадос!"
     Автор ответа: Роман 
    If Right$("переменная",6)="sobaka" then ...
    Автор ответа: DeDMoRoZ

    Размещаешь на форме TextBox и Кнопку. Для кнопки на событие он_клик пишешь следующее:     
    Dim ss, sss As String
ss = Text1.Text
sss = Mid(ss, 1, 6)
if sss = "sobaka" then
MsgBox sss
else
msgbox "Не собака !!!"
end if
    Автор ответа: leonxl 
    if Left$(txtTextBox1.text, 6) = "Образец" then ...
    Автор ответа: Дмитриев Николай

    Все делается ну очень просто! Имеется TextBox и некий фрагмент текста там, чтобы получить первые шесть символов из строки пользуемся функцией MID$(строка, начальный символ, конечный символ), на примере это выглядит так:     
    Private Sub Command1_Click()
' получаем первые шесть символов и сравниваем их
' c образцом в нижнем регистре

If LCase(Mid$(Me.Text1.Text, 1, 6)) = "sobaka" Then
' тут прописываем ссылку на действия или
' cами действия в случае истины
 MsgBox "Hello!"
' тут выскакивает мессаж ПРИВЕТ (по англицки)
Else
' прописываем действия при отрицательном результате
' или убераем оператор Else
End If
End Sub
    Автор ответа: ]CBK[CRaSH 
    if MID(str,1,6)="123456" then msgbox "Est"

'Mid(строка,начальный символ,скока символов)=Строка
    Автор ответа: MaxOn 
    Private Sub Text1_Change()
         Static slovo As String
         Static alltxt As String
         slovo = "собака"
         alltxt = Text1.Text
         If Left(alltxt, Len(slovo)) = slovo
  Then
  MsgBox "Вы написали" & slovo
  End If
End Sub
    Автор ответа: Tibor 
    if mid(textbox1.text, 1, 6) = "sobaka" then ....
    Выражаю благодарность всем ответившим на этот вопрос. Спасибо ребята, молодцы! Не буду выделять лучший и худший ответы, так как все они полностью индивидуальны и одинаково заслуживают внимания.

    База знаний
    Очистка корзины

    На форме располагаете одну кнопку и вставляете код: 
    Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" (ByVal hWnd As Long, ByVal pszRootPath _
As String, ByVal dwFlags As Long) As Long

Const SHERB_NOPROGRESSUI = &H2

Private Sub Command1_Click()

Call SHEmptyRecycleBin(Me.hWnd, "", SHERB_NOPROGRESSUI)

End Sub
    Существует ли файл?
    Пример №1: возвращаемое значение 1 или 0: 
    Private Declare Function PathFileExists Lib "shlwapi.dll" _
Alias "PathFileExistsA" (ByVal pszPath As String) As Long

MsgBox PathFileExists("c:\windows\win.exe")
    Пример №2: возвращаемое значение True или False: 
    Declare Function PathFileExists Lib "shlwapi.dll"
Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Function DoesFileExisting(ByVal strPath As String) As Boolean

DoesFileExisting = PathFileExists(strPath)

End Function

MsgBox DoesFileExisting("c:\windows\win.exe")
    Выравнивание меню 
    Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Const MIIM_TYPE = &H10
Const MFT_RIGHTJUSTIFY = &H4000
Const MFT_STRING = &H0&
Private Declare Function GetMenuItemInfo Lib "user32" _
Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal _
un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long
Private Declare Function SetMenuItemInfo Lib "user32" _
Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal _
un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type
Private Sub Command1_Click()
Dim MnuInfo As MENUITEMINFO
mnuH& = GetMenu(Me.hwnd)
MnuInfo.cbSize = Len(MnuInfo)
myTemp& = GetMenuItemInfo(mnuH&, 0, True, MnuInfo)
MnuInfo.fType = MFT_RIGHTJUSTIFY Or MFT_STRING

MnuInfo.cch = Len("MenuCaption")
MnuInfo.dwTypeData = "MenuCaption"
MnuInfo.cbSize = Len(MnuInfo)
myTemp& = SetMenuItemInfo(mnuH&, 0, True, MnuInfo)
myTemp& = DrawMenuBar(Me.hwnd)
End Sub
    Выпуск подготовили:
    Алексей: x-alexis@mail.ru
    		© 2002-2003 Рассылка "VB.NET-World"
    © 2000-2002 экс "Мир программирования на VB и HTML"
    		Главный редактор: Алексей
    Криптография: Дмитрий
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу
    В избранное