Visual Basic для новичков и профессионалов 24(34)

Здравствуйте уважаемые подписчики!

Вот и подошло время для очередного выпуска рассылки.

Наш сайт продолжает переезд на новый хостер, адрес пока не разглашается до полного переноса сайта. Хотелось бы сказать, что на новом сайте будет отличный форум, в котором также можно получать ответы на вопросы или просто пообщаться на темы программирования. Могу сказать лишь сроки, в которые мы постараемся уложиться: начало июня.

1. Вопросы, касающиеся другой сферы программирования, а также сферы ПО - НЕ ПРИНИМАЮТСЯ!

2. Запрещена пересылка файлов автору рассылки размером более 200КБ без предварительного уведомления автора рассылки!

3. Письма с указанием ссылок на какой-либо ресурс или сайт будут отвергнуты, либо ссылкы будут заменены на <РЕКЛАМА> и не будут опубликованы в рассылке!

4. Используйте текстовый формат письма при написании вопроса или ответа.

В скорем времени сайт покинет всем уже знакомый домен: www.basic.webhost.ru. Причина тому несоответствующее название, а также масса других причин. Новый адрес пока не разглашается.

<<Новые вопросы>>

<<Вопросы без ответа>>

---

28/ Как вывести все иконки ассоциативных файлов (как в проводнике) [Ответить]

---

40/ Здраствуйте ! У меня к вам будет один вопрос. Можно ли на ВБ (у меня установлена 6-я версия программы) сделать поиск подключенных компьютеров по локальной сети.Мне нужно узнать их ай-пи адрес и желательно имя компьютера. Я начинающий программист, если можно, обьясните более подробно. Заранее спасибо [Ответить]

---

41/ А возможноли сделать на VB трех мерный кубик-рубик. Похожий на этот "http://conus-video.zp.ua/img/rubik.zip". Или хотя бы подскажите, где можно взять исходник к такой игре. [Ответить]

---

43/ Здравствуйте уважаемые програмисты. Смотрю я на это дело, сайт развивается, рассылка стала хорошей. То есть объемной. Я конечно не надеялся получать тут ответы, но смотрю, что после прекращения рассылки Visual Basic: "новости сайтов, советы, примеры кодов". Вижу что часть писателей теперб здесь. У меня к вам такой вопрос. Видел программу типа Чатер Бокс. Смысл простой я звоню со своего компа на другой имеющий эту же прогу. Она соединяется. Вся суть в том что можно переслать файлы или написать текст. Если кто знает как это сделать на VB. Как открыть порт и набрать номер я знаю. А дальше? [Ответить]

---

49/ Тут такая проблема... Я собрался изучить базы данных, а вот хелп не могу найти, в частности по MSH FlexGrid, если у вас есть хелп по контролам вы бы не смогли бы мне прислать или подсказать как с ним работать. Зарание благодарю!!!! [Ответить]

---

54/ Как сделать турнирную таблицу (Как в футболе). Самое главное - это сортировка. Заранее спасибо! [Ответить]

---

57/ Здравствуйте. Уважаемы програмисты, я не программирую на VB. Недавно появилась задачка, которую я предполагаю как можно решить, но не знаю как реализовать. Исходные данные. Есть сетевой принтер с возможностью двухсторонней печати. Пользователи работают с MS Word. На печать посылаются задания из n листов. При этом, листы с 1 по n-2 должны быть напечатаны с одной стороны. Лист n-1 является последним листом документа, а лист n оборотной стороной листа n-1. Предпологаемое решение. По нажатию кнопки "Печать1" из переменной "Количество листов в документе" извлекается заначение n и если n<2 выводится на экран сообщение "Печать с оборотом не возможна" и производится выход из программы, если n>2 вызывается на исполнение функция печати, которой в параметрах передается: 1. Печатать листы с 1 по n-2; 2. Печатать без оборота. Вызывается на исполнение функция печати, которой в параметрах передается: 1. Печатать листы n-1, n; 2. Печатать с оборотом. При этом желательно сделать так, чтобы между вызовами функций печати в очередь печати не проскочило какое-нибудь задание. Естественно, все это оформить в виде макроса. Прошу Вас помочь мне. [Ответить]

---

59/ Доброго здоровья всем читателям рассылки! У меня есть один вопрос. Имеются два BMP рисунка разного размера, необходимо наложить на рисунок большего размера рисунок меньшего размера строго по заданным координатам, сохранить полученный рисунок. Буду благодарен за любые мысли. [Ответить]

---

60/ Здравствуйте уважаемые программисты! Может кто-нибудь знает,как работать с модемом в VB. Хотя бы номер набирать. Киньте исходничок на мыло, кому не лень. Спасёте меня по-крупному! perekladov_vova@mail.ru [Ответить]

---

62/ Здравствуйте уважаемуе программисты. Подскажите принцип работы с объектом phone. Вопрос жизни и смерти. [Ответить]

---

63/ Здравствуйте! Как сделать столбец для таблицы с помощью VB который будет показывать номера кварталов с min зарплатой(в таблице 4 квартала). Другой столбец - Динамика изменения средней зарплаты по кварталам (рост, падение, колебание, постоянно)\ нужно найти среднее знаение среди записей каждого отдела и чтобы написал динамику изменени, то что напискано в скобках, одно слово. [Ответить]

---

67/ Здравствуйте! У меня к Вам два вопроса по VBA.
1. Мне часто приходится выполнять расчеты в Excel по формулам. Каким образом можно организовать вычисление в цикле так, чтобы после каждого следующего обращения формулы к ячейке X ее содержимое изменялось бы с определенным шагом?
2. При поиске в таблице базы данных какого-либо значения я пользуюсь формулами "ВПР" или "ГПР". Как можно сделать, чтобы при нахождении приближенного значения функция возвращала наименьшее из наибольших значений в строке или столбце списка, а не наибольшее из наименьших, как заложено в формулах?
Заранее благодарю. Александр. [Ответить]

---

68/ Как поменять рисунок рабочего стола? SystemParametersInfo работает только с bmp файлами, а как применить jpg или gif? [Ответить]

---

69/ Добрый день уважаемые программисты!
Подскажите, какой функцией конвертировать цвет, выдаваемый оператором POINT в вид RGB. Заранее спасибо! [Ответить]

---

70/ Здраствуйте, подскажите пожалуйсто как наложить на большую картинку меньшую по определенным координатам, при этом результат сохранить в графический файл (bmp). [Ответить]

---

71/ Например есть соединение с интернетом и локальной сетью - как можно средствами VB6 узнать кол-во принятых и отправленых байт? Меня интересует конкректный пример, но можно хоть что-нибудь - если это вообще возможно. Заранее благодарю. [Ответить]

---

72/ Как можно средствами VB прописать программу в автозагрузку, и как можно будет оттуда её убрать? [Ответить]

---

---

31/ Привет! Скажите, как пользоваться SpeechAPI? Меня интересует пример [Ответить]

Отвечает: Саня Бориско

Напиши мне, я скину исходники! (Саня Бориско <saniaborisko@mail.ru>)

---

Оценка за ответ: 1

---

64/ Как зафиксировать утопленную кнопку на форме средствами VB? [Ответить]

Отвечает: sasha

Никак
Для таких целей надо использовать Checkbox
В стиле укажи 1-Graphical (и наслаждайся своей "КНОПОЧКОЙ" )

---

Оценка за ответ: 5

Отвечает: Копылов Сергей

С обычной кнопкой это проделать не удастся. Попробуйте с элементом Image.

---

Оценка за ответ: 3

Задать свой вопрос!

На данный моменд раздел приостановлен в связи с переездом на другой домен. Приносим свои извинения.

Задать вопрос>>>

Буква (M) означает, что данный архив содержит только модуль.

Примеры и модули
Ссылка	Описание	Ссылка	Описание
about.zip	Стандартное окно About в VB (4.2KB)	OpenCD.zip	Управление CD (M) (1KB)
anigif.zip	Анимация в VB (5KB)	progressbar.zip	Progress Bar в трее (4KB)
appprioritet.zip	Устанавливаем приоритет в приложении (1.8KB)	randomform.zip	Разные формы (M) (2KB)
biosinfo.zip	Просматривает ифрормацию о БИОСе (5.5KB)	RandomForms.zip	Разные формы (1KB)
cd-rom.zip	Работа с CD-ROM (1.6KB)	Reestr.zip	Работа с реестром (2.5KB)
commondialog.zip	Диалог открытия файла без контрола (1.9KB)	registry.zip	Регистрация в реестре (9.5KB)
coolvbmenu.zip	Клевое меню в VB (14KB)	resource.zip	Просмоторщик ресурсов проги (46.6KB)
disableendtasks.zip	Запрет нажатия Ctrl+Alt+Del (1.8KB)	RU_EN.zip	Переключение языка программно (M) (1KB)
File_size.zip	Определяет размер файла (M) (1KB)	sharp.zip	Пример часиков (2.1KB)
fso.zip	Работа с FSO (File System Object) (101KB)	ShutDown.zip	Шатдаун компьютера (M) (1KB)
HDD_info.zip	Информация о диске (M) (1KB)	sort.zip	Сортировка массива за 0.2 секунды! (M) (1KB)
hddserial.zip	Серийный номер диска (24KB)	Standart.zip	Стандартные диалоги и окна (M) (1KB)
Hibernate.zip	Выключение и перезагрузка ПК (M) (1KB)	systrayicon.zip	Иконка в трее (21KB)
lines2000.zip	Пример игры Lines (74KB)	transparent.zip	Прозрачность окна (M) (1KB)
manifest.zip	ХР стиль в аппликухе (2.5KB)	Tray_icon2.zip	Икнока в трее 2 (M) (1KB)
mdlMain.zip	ХР стиль в приложении (M) (1KB)	Tray_icon.zip	Иконка в трее (M) (1KB)
winwordorfo.zip	Проверка орфографии с помощью Word'а (1.9KB)

Компоненты:

Ссылка	Описание	Ссылка	Описание
SpiritButtonEdit.zip	Кнопка с текстовым полем	ProgBar.zip	Двухцветный прогресс бар
SpiritClock.zip	Электронные часы	RunString.zip	Бегущая строка
SpiritEditDate.zip	Компонент редактирования даты	STrayIco.zip	Иконка в трее
XPButton.zip	Кнопка в стиле XP, Office, и др.	UA_SuperTextBox.zip	TextBox вмещающий более 65КБ текста
SpiritProgressBar.zip	Прогресс Бар в классическом стиле	verticalLabel.zip	Вертикальный лейбл
ARFlatBttn.zip	Кнопка	vPlayer.zip	Плейер
HyperlinkAX.zip	Компонент для создания гиперссылок	shelllink.zip	Программное создание иконки NEW!!!

Есть вопросы относительно статьи, задавайте!

Выравнивание меню

Добавьте на форму CommandButton и Menu
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)
MnuInfo.fMask = MIIM_TYPE
'If you want to align to right only few menus, and leave the rest in left side,
'Replace the '0' below and the '0' two lines above the 'End Sub' with the number
'of menus you want to leave in the left side.
myTemp& = GetMenuItemInfo(mnuH&, 0, True, MnuInfo)
MnuInfo.fType = MFT_RIGHTJUSTIFY Or MFT_STRING
'Replace all 'MenuCaption' below with the caption of the first menu from left.
MnuInfo.cch = Len("MenuCaption")
MnuInfo.dwTypeData = "MenuCaption"
MnuInfo.cbSize = Len(MnuInfo)
myTemp& = SetMenuItemInfo(mnuH&, 0, True, MnuInfo)
myTemp& = DrawMenuBar(Me.hwnd)
End Sub

http://www.delphi-faq.fatal.ru - Программирование на DELPHI: Вопросы и Ответы читателей; Статьи по программированию на Delphi, других языках программирования, графике (OpenGL/DirectX); Компоненты, Пакеты, Plug-in'ы, Модули для Delphi; Исходники программ, игр; Документация и ссылки на документацию по программированию; Рассылка, в которой каждый программист найдёт что-то полезное!

http://infomania2004.webhost.ru. Этот сайт создан для того, чтобы вы могли получить интересующую вас информацию с минимальными затратами сил и времени. Если вы не нашли здесь нужной информации, оставьте заявку..."

Все о Динамо - www.DinamoMania.ru На этом сайте вы найдете все новости и интервью ВСЕХ видов спорта Динамо. Также на сайте есть таблицы всех видов спорта. Видео и Фото материалы. И все это на одном сайте - www.DinamoMania.ru Это первый и единственный сайт, который освещает все виды одного клуба.