VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Очередной выпуск рассылки. Ничего нового не происходит... Коды подходят к концу, так что присылайте ещё, буду рад!
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 13:54 / 20 апр. PDF >>> DOC, HTM... | Хитов: 0 | Ответов: 0 11:23 / 20 апр. база данных | Хитов: 5 | Ответов: 0 08:23 / 20 апр. VBNET CD | Хитов: 10 | Ответов: 1 01:58 / 20 апр. Дизассемблер | Хитов: 28 | Ответов: 10 01:01 / 20 апр. filezzz=>array;array=>print; | Хитов: 5 | Ответов: 1 00:02 / 20 апр. Как найти значение в Excel | Хитов: 5 | Ответов: 0 23:41 / 19 апр. Как на VB5/6 определить (через API) версию dll-ки? | Хитов: 3 | Ответов: 0 21:33 / 19 апр. голосовое чтение записей | Хитов: 32 | Ответов: 5 21:12 / 19 апр. Uninstall | Хитов: 17 | Ответов: 1 15:48 / 19 апр. Визуальное сопровождение печати документа | Хитов: 27 | Ответов: 4 15:45 / 19 апр. Печать | Хитов: 23 | Ответов: 2 11:37 / 19 апр. Formula One 6.0 | Хитов: 16 | Ответов: 0 11:12 / 19 апр. Подскажите где взять код проги считающей траф и... | Хитов: 31 | Ответов: 4 00:18 / 19 апр. Excel | Хитов: 22 | Ответов: 0 22:19 / 18 апр. Частота обновления | Хитов: 22 | Ответов: 0 22:02 / 18 апр. Key Watch | Хитов: 25 | Ответов: 3 20:16 / 18 апр. DataGrid help!! | Хитов: 16 | Ответов: 0 20:05 / 18 апр. версии dll | Хитов: 24 | Ответов: 2 18:56 / 18 апр. Beta ttesting! | Хитов: 84 | Ответов: 7 17:33 / 18 апр. Русский ---> Russkii convertor and Password ... | Хитов: 44 | Ответов: 5 Последние поступления в Библиотеку кодов: Новости от VBNet-чиков!: наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Новости сайта MSDN наверх Новости сайта GotdotNet
Новые статьи:
наверх Новости сайта dotSite Новые статьи: Новые примеры: наверх Один момент из жизни форума: Баг с Flat/3D buttons Вопрос: Автор вопроса: hudson В VB6 встретил такой баг: У стандартной кнопки по дефолту аттрибут "Appearance" установлен в 3D. Если изменить его на Flat, то кнопка остается такой же как и с аттрибутом 3D. У остальных компонентов изменение аттрибутов работает нормально... В чем тут может быть проблема??? Ответы: Автор: Gravity Вряд ли это глюк .... ну такое Билл ГЕЙтс :) ну точно бы исправил ... мне кажется это для таких как ты чтобы побольше спрашивали :))) Автор: hudson 2 Gravity : Ну и как же тогда получить "Flat" баттон в Васике??? Автор: User Unknown Можно свой написать. Из пары лейблов:))) Автор: hudson 2 User Unknown: Можно, но в данном случае нужна стандартная..... 2 ALL: Это что вообще никак не лечится??? :( Автор: CyRax Ну подумай логически. Где ты видел в винде плоские кнопки ? Используй лучше тулбар. Автор: Access Ну в общем-то можно... Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) Private Const BS_NULL& = 1 Private Const BS_BOTTOM& = &H800& Private Const BS_BITMAP& = &H80& Private Const BS_AUTORADIOBUTTON& = &H9& Private Const BS_AUTOCHECKBOX& = &H3& Private Const BS_AUTO3STATE& = &H6& Private Const BS_3STATE& = &H5& Private Const BS_CENTER& = &H300& Private Const BS_CHECKBOX& = &H2& Private Const BS_DEFPUSHBUTTON& = &H1& Private Const BS_DIBPATTERN& = 5 Private Const BS_DIBPATTERN8X8& = 8 Private Const BS_DIBPATTERNPT& = 6 Private Const BS_FLAT& = &H8000& Private Const BS_ICON& = &H40& Private Const BS_HOLLOW& = BS_NULL Private Const BS_HATCHED& = 2 Private Const BS_GROUPBOX& = &H7& Private Const BS_INDEXED& = 4 Private Const BS_LEFT& = &H100& Private Const BS_LEFTTEXT& = &H20& Private Const BS_MULTILINE& = &H2000& Private Const BS_NOTIFY& = &H4000& Private Const BS_OWNERDRAW& = &HB& Private Const BS_PATTERN& = 3 Private Const BS_PATTERN8X8& = 7 Private Const BS_PUSHBUTTON& = &H0& Private Const BS_PUSHLIKE& = &H1000& Private Const BS_RADIOBUTTON& = &H4& Private Const BS_RIGHT& = &H200& Private Const BS_RIGHTBUTTON& = &H20& Private Const BS_SOLID& = 0 Private Const BS_TEXT& = 0& Private Const BS_TOP& = &H400& Private Const BS_USERBUTTON& = &H8& Private Const BS_VCENTER& = &HC00& Private Const GWL_EXSTYLE& = (-20) Private Const GWL_HINSTANCE& = (-6) Private Const GWL_HWNDPARENT& = (-8) Private Const GWL_ID& = (-12) Private Const GWL_STYLE& = (-16) Private Const GWL_USERDATA& = (-21) Private Const GWL_WNDPROC& = (-4) Private Sub Form_Load() Dim tmpValue&, mskNoStyle& tmpValue& = BS_PUSHBUTTON & BS_FLAT 'Remove all the style bits from the button mskNoStyle& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not (BS_AUTOCHECKBOX Or _ BS_RADIOBUTTON Or BS_3STATE _ Or BS_GROUPBOX Or BS_ICON Or BS_PUSHBUTTON) dl& = SetWindowLong&(Command1.hwnd, GWL_STYLE, mskNoStyle& Or tmpValue&) Command1.Refresh End Sub Автор: Миха Метод flat не виден визуально (но для кодинга он где-то учитывается ,это я помню). Автор: JONick Можешь взять с vbstreets или я могу выслать спец. флат и не только кнопки... наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: 001 Ответ ожидается по этому адресу Помогите мне, пожалуйста решить следующую проблему. Я создаю один DHTML проект, в котором мне требуется отослать почту со вложением файла. Как это сделать на HTML при помощи mailto:адрес@мыло.ру?subject="тема" а как нужно продолжить строку, чтобы вложть файл? Автор вопроса: weeeer Ответ ожидается по этому адресу Как сделать так чтобы меню в программе было как в Word-е то есть справа была полоса серого цвета либо другого цвета Автор вопроса: IzoMicke Ответ ожидается по этому адресу Пусть есть массив переменной длины Dim vArr() В циклическом процессе определяется число неких элементов (n) и делается Redim vArr(n-1) Вопрос: можно ли как-то программно возвратить vArr в исходное состояние, т.е. в то, в котором он был до первого ReDim'а? Автор вопроса: sla_237 Ответ ожидается по этому адресу Подскажте пожалуйста как отловить нажатие на кнопку "свернуть" и "закрыть" , и не дать программе свернутся или закрытся , а выполнить какое то свое дествие. Если можно с примером , уже 3ю неделю мучаюсь , ниче не получается :( Автор вопроса: Илья Ответ ожидается по этому адресу Как издать на PC-Speaker писк при помощи VB 6.0 для Windows 98/XP? Ответы: Вопрос: Как сделать прозрачный контрол,чтобы отвечал на MouseMove, MouseEnter, MouseOut? Ответ: Автор ответа: LIS Создай картинку без рисунка-вот и контрол. Вопрос: Не подскажите,как из VB6 запустить программу(игру). Например у меня есть форма с кнопкой OK, я нажимаю и должна запуститься игрушка. Как прописать директорию, точнее как установить связь. Ответ: Автор ответа: admin Проще всего через команду shell. Ответ: Автор ответа: ]CBK[CRaSH прога запускается при помоши shell "Путь\Файл.exe","способ открытия" если тебе надо изменять директорию то ножно сделать так на форму кидаеш textbox, в нем прописываеш путь shell text1.text Вопрос: Скажите, как можно из моей проги отослать письмо на мыло так, чтобы в обход всяких Outlook Express. Данные для письма брать из файла. И ещё эта прога не должна надоедать всякими глупыми запросами. Подскажите что делать. Можно кусочек кода (VB6). Ответ: Автор ответа: admin Посмотри на сайте www.hiprog.ru там вместе с кодом есть програмка smtpserver она и занимаеться рассылкой писем без всяких почтовиков (через себя) описание работы там же. Ответ: Автор ответа: weff-повар Воспользуйся программой THE BAT. Вопрос: Скажите, как сделать, чтобы моя прога определила мой IP когда я в сети. Это значение нужно присвоить какой либо переменной. Если нетрудно, приведите пример кода. Ответ: Автор ответа: ]CBK[CRaSH IP определить довольно легко: на форму кидаеш winSock My_IP=Winsock1.LocalIP Вопрос: 1.Кто знает как на Visual Basic Script в документе HTML запрограммить чтение данных из файла, лежащего рядом (любые варианты). 2.Подскажите как передать хотябы переменную. Неплохо если поделитесь простыми примерами с Winsock'om на примере клиент-сервер... или дайте ссылки на общения, статьи, примеры... Ответ: Автор ответа: ViTal Отвечу на первый вопрос. dim objFS, objFile, objTS, sText, sFilePath Set objFS=Server.CreateObject("Scripting.FileSystemObject") sFilePath=Server.MapPath("somefile.txt") Set objFile=objFS.GetFile(sFilePath) Set objTS=objFile.OpenAsTextStream(1) sText=objTS.ReadLine() //читаем строку из файла //sText=objTS.ReadAll //читаем весь файл objTS.Close Set objTS=Nothing Set objFile=Nothing Set objFS=Nothing Ответ: Автор ответа: Кирко Владимир 1. Ну вот это, например, Dim arrFileLines() i = 0 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Ваш_Файл.txt", 1) Do Until objFile.AtEndOfStream Redim Preserve arrFileLines(i) arrFileLines(i) = objFile.ReadLine i = i + 1 Loop objFile.Close For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1 Wscript.Echo arrFileLines(l) Next будет читать текстовый файл и, потом, выдавать его по строчкам в обратном порядке. НО - файл должен существовать (иначе будет выдана ошибка) - антивирусы (Нортон-антивирус, в частности) очень резво реагируют на попытки использования FileSystemObject. Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел |