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

DanSoft о Visual Basic

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

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

←   Декабрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор Гость

Статистика

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

DanSoft о Visual Basic Выпуск от 9/12/02


Информационный Канал Subscribe.Ru
Обычная страница без названия

Программирование на языке Visual Basic

Выпуск № 3

Содержание:

Новости сайта

Новостей сайта  нет

наверх

Описание программ сделанные на Visual Basic

Вы можете прислать описание ваших программ (сделанную на VB). И мы опублиуем её здесь !

Sticky
перейти		 Программа поможет вам запомнить вам необходиммую информацию. Особенность этой липучки в том, что сообщение может появлятся в указаное вами время, а до этого она будет скрыта.
Параметры=27 КB, 9x/2000/XP, русская,бесплатная
 

А вы знаете, что ...

Visual Basic невсегда понимает русский язык, но с этим легко можно справиться !

Для этого сделайте следующие действия
1.Зайдите в Options
2. Выберите вкладку Editor Format
3. Выберите шрифт Courier New CYR

Все. Теперь вы можете наслаждаться русским языком !

наверх

Вопросы и ответы по Visual Basic

Вопросы:

Василий Как заставить колесо мышы работать в окнах VB

Ответы:

Василий Как изменить заголовок любова окна

Админ DanSoft

Добавьте на форму 2 TextBox и 1 CommandButton. Напишите внутри TextBox1 наименование окна, которое вы хотите изменить. Напишите внутри TextBox2 новый заголовок окна.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Sub Command1_Click()
   Dim target_hwnd As Long
   Dim target_name As String
   Dim new_caption As String
   target_name = Text1.Text
   target_hwnd = FindWindow(vbNullString, target_name)
   If target_hwnd = 0 Then
       MsgBox "Окно не найдено"
      Exit Sub
   End If
   new_caption = Text2.Text
   SendMessage target_hwnd, WM_SETTEXT, 0, ByVal new_caption
End Sub
Private Sub Form_Load()
   Text1.Text = "Работа с текстом"
   Text2.Text = "Новый заголовок"
End Sub


наверх

Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.

Текст сообщения:

Ваше имя
E-mail для ответа


наверх

Выпуск подготовили:

 Данилов  А.Г.
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное