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

Visual Basic: новости сайтов, советы, примеры кодов.

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 4.063 RSS
←   Март 2005   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://vbnet.ru
Открыта: 31-07-2001

Автор
Павел Сурменок

Статистика

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

Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 320.


Информационный Канал Subscribe.Ru

Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 320.

VBNet VBMania
Ссылки:

  • GotDotNet
  • Улицы VB
  • Азбука VB
  • VB по русски
  • MDesign
  • DanSoft
  • Хрестоматия VB
  • VBCoder
    		• Господа, читайте MSDN!

    Несколько слов от автора:

       Поздравляю лучшую и прекраснейшую половину нашего программистского сообщества с праздником!
    Читайте!


    Содержание выпуска



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



    Последние 20 тем форума на VBNet.Ru:

    16:25 / 8 мар.  Не ставится Net FrameWork 1.1 | Хитов: 7 |  Ответов: 3
    13:58 / 8 мар.  MSINET.OCX и быстрая смена прокси-серверов | Хитов: 3 |  Ответов: 0
    13:12 / 8 мар.  Контрол Image | Хитов: 11 |  Ответов: 2
    12:16 / 8 мар.  Сделал шкуру для phpBB 2 (работает по версию 2.13) | Хитов: 7 |  Ответов: 2
    07:12 / 8 мар.  Блокировка клавы | Хитов: 11 |  Ответов: 1
    19:26 / 7 мар.  прокрутка окна при помощи колёсика мыши.... | Хитов: 12 |  Ответов: 0
    18:30 / 7 мар.  Связывание form1 с form2 | Хитов: 70 |  Ответов: 11
    18:12 / 7 мар.  Как можно... | Хитов: 18 |  Ответов: 2
    17:24 / 7 мар.  Быстродействие | Хитов: 17 |  Ответов: 1
    16:15 / 7 мар.  Макрос на событие (напр., откр.) ЛЮБОЙ книги Excel | Хитов: 16 |  Ответов: 2
    15:33 / 7 мар.  Помогите скачать VBSocket1A | Хитов: 9 |  Ответов: 1
    15:05 / 7 мар.  C++ | Хитов: 35 |  Ответов: 7
    14:06 / 7 мар.  Сортировка массива без учета регистра | Хитов: 23 |  Ответов: 5
    13:15 / 7 мар.  IP-адрес | Хитов: 33 |  Ответов: 5
    12:54 / 7 мар.  Из List в txt файл | Хитов: 28 |  Ответов: 4
    12:50 / 7 мар.  Поставить (;) в ячейки | Хитов: 33 |  Ответов: 4
    11:50 / 7 мар.  Из XL в txt | Хитов: 30 |  Ответов: 6
    05:15 / 7 мар.  Очень нужна программа. | Хитов: 46 |  Ответов: 3
    04:05 / 7 мар.  Как добавить пункт в меню файлов и обрабатывать? | Хитов: 49 |  Ответов: 5
    00:08 / 7 мар.  Ограничение скорости при передачи | Хитов: 17 |  Ответов: 2


    Последние поступления в Библиотеку кодов:



    наверх

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

    • Дни Microsoft — весна'05
      С 15 марта по 11 апреля компания Microsoft проводит четыре мероприятия в крупных городах России.

    • Microsoft и «Кварта Технологии» объявляют конкурс программ для планшетных ПК
      Конкурс проводится по трем номинациям: новая разработка, адаптация существующего ПО, мультимедийное приложение или приложение для вертикального рынка. Работы принимаются с 1 января 2005 г. по 1 июня 2005 г., для победителей предусмотрены призы от Microsoft.

    • Для подписчиков MSDN выпущена ознакомительная версия подсистемы Avalon
      С ноября графическая подсистема следующей версии Windows доступна для загрузки (EN).

    • Открылся Центр компетенции Microsoft и Hewlett-Packard на Урале
      Центр предназначен для отработки и демонстрации разработок, организации научных и практических исследований в решении бизнес-задач с использованием современных информационных технологий. Центр работает на базе компании CIFT (Екатеринбург).

    • Microsoft выбрана исполнителем проекта по разработке архитектуры «электронного правительства» в рамках ФЦП «Электронная Россия»
      Федеральное агентство по информационным технологиям объявило о выборе исполнителя работ по проекту разработки концепции единой архитектуры «электронного правительства». Победителем в тендере стала компания ООО «Майкрософт Рус», имеющая богатый международный опыт корпорации в области консалтинга по вопросам реализации национальных инициатив «электронного правительства».


    наверх

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

    • 06.04.2005 - Дни разработчика Весна'05
      В марте-апреле 2005 года пройдут семинары "Дни разработчика" в городах Санкт-Петербург, Екатеринбург, Казань, Нижний Новгород, Москва, Волгоград, Новосибирск, Самара

    • 01.03.2005 - 1 февраля начался первый этап студенческого соревнования Microsoft Imagine Cup 2005
      1 февраля начался первый этап студенческого соревнования Microsoft Imagine Cup 2005! У студентов и школьников России и СНГ появилась уникальная возможность принять участие в различных конкурсах с ценными призами от Microsoft

    • 01.03.2005 - MSDN Flash 28.02.05
      Важнейшие материалы, новые веб-ресурсы, продукты и технологии наших партнеров, веб-презентации, общение в режиме реального времени, мероприятия для разработчиков.


    Новые статьи:



    наверх

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

    Новые статьи:

    • Способ регистрации элементов управления с использованием директивы include SSI.
      Регистрация элементов управления в одном текстовом файле и включение его с помощью директивы #include SSI упрощает разработку и поддержку сайта.


    Новые примеры:



    наверх

    Один момент из жизни форума: Связывание form1 с form2

    Адерес темы: http://vbnet.ru/forum/show.aspx?id=66805

    Вопрос:
    Автор вопроса: Emory

       .NET
       Есть Form1 есть Form2. На form1 есть label1 и Button1. На form2 есть button2.
    При нажатии на Button1 происходит действие:

    Dim form2 As New Form2
    form2.Show()

    Выводится form2, где button2. А мне надо, чтобы при нажатии на button2, в form1 у label1 поменялся текст. Как это осуществить?


    Ответы:

    Автор: Павел
    В Form2:

    Public ParentForm As Form1

    В Form1:

    Dim form2 As New Form2
    form2.ParentForm = Me
    form2.Show()

    В Form2:

    Me.ParentForm.Label1.Text="hello"



    наверх

    Вопрос/Ответ

    Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

    Вопросы:

    Автор вопроса: Олег

    Ответ ожидается по этому адресу

       Можно ли создавать плагины расширения для The Bat! на Vb 6?

    Автор вопроса: Олег

    Ответ ожидается по этому адресу

       Нужно определить существование папки. Я делаю при помощи функции:

    Function DirExist(dirName As String) As Boolean
    On Error Resume Next
    If Dir$(dirName, vbDirectory) <> "" Then
      DirExist = True
    Else
      DirExist = False
    End If
    If Err.Number <> 0 Then DirExist = False
    End Function

    Но почему-то функция иногда равна False, хотя папка действительно существует, например DirExist("D:\Documents and Settings\My_Documents\My Save Games").

    Автор вопроса: Andrey

    Ответ ожидается по этому адресу

       Я пишу программу которая работает с модемом через COM порт. В интернете нашел статью в которой на примере показывалось как определить подключенли модем к порту, но у меня это не работает. До автора пробиться не смог.

    Этот пример из статьи.

    Option Explicit

    Private Type COMMPROP
             wPacketLength As Integer
             wPacketVersion As Integer
             dwServiceMask As Long
             dwReserved1 As Long
             dwMaxTxQueue As Long
             dwMaxRxQueue As Long
             dwMaxBaud As Long
             dwProvSubType As Long
             dwProvCapabilities As Long
             dwSettableParams As Long
             dwSettableBaud As Long
             wSettableData As Integer
             wSettableStopParity As Integer
             dwCurrentTxQueue As Long
             dwCurrentRxQueue As Long
             dwProvSpec1 As Long
             dwProvSpec2 As Long
             wcProvChar(1) As Integer
    End Type

    Private Declare Function CreateFileA Lib "kernel32" (ByVal lpFileName As
    String, _
                     ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _
                     lpSecurityAttributes As Any, ByVal dwCreationDisposition As
    Long, _
                     ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As
    Long) As Long
    Private Declare Function GetCommProperties Lib "kernel32" (ByVal hFile As
    Long, _
                     lpCommProp As COMMPROP) As Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long)
    As Long

    Private Const GENERIC_READ = &H80000000
    Private Const GENERIC_WRITE = &H40000000
    Private Const OPEN_EXISTING = 3
    Private Const FILE_ATTRIBUTE_NORMAL = &H80
    Private Const INVALID_HANDLE_VALUE = -1
    Private Const PST_MODEM = &H6&

    Private Sub Form_Load()
    Dim hComm As Long
         hComm = CreateFileA("COM1", GENERIC_READ Or GENERIC_WRITE, 0, ByVal 0&,
    _
                            OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
         If hComm = INVALID_HANDLE_VALUE Then
             MsgBox "Невозможно открыть порт"
             End
         End If

    Dim hComProp As COMMPROP
         GetCommProperties hComm, hComProp
         If hComProp.dwProvSubType <> PST_MODEM Then
             MsgBox "Модем не обнаружен"
             CloseHandle hComm
             End
         Else
             MsgBox "Модем Обнаружен"
         End If

         CloseHandle hComm
         End
    End Sub

    Подскажите в чем тут дело или как по другому определить модем без использования Tapi.
    У меня ОС WinXP Home.

    Автор вопроса: programmVB

    Ответ ожидается по этому адресу

       Как отскриншотить экран? При этом вставить его содержимое в Image (или другой графический контрол) и сохранить как рисунок.

    Автор вопроса: Андрей

    Ответ ожидается по этому адресу

       Как правильно работать с модемом, например открыть порт, набрать номер, соединиться с удаленным компьютером?

    Автор вопроса: Виталя

    Ответ ожидается по этому адресу

       Как изменить вид формы, допустим, сделать форму круглой?

    Автор вопроса: Виталий

    Ответ ожидается по этому адресу

       Как можно сделать TextBox прозрачным, так чтобы было видно картинку на форме? Или как можно в TextBox на фон вставить картинку?



    Ответы:

    Вопрос:

       Как программа может скопировать сама себя (бея создания bat файла)?

    Ответ:

    Автор ответа: C...R...a...S...H

    Используй filecopy([откуда],[куда])

    Вопрос:

       Помогите написать сканер портов.

    Ответ:

    Автор ответа: C...R...a...S...H

    Используй winsock.

    Winsock1.RemoteHost = "192.168.0.3"
    Dim i As Integer
    For i = 2 To 10000
    Winsock1.RemotePort = i
    DoEvents
    Winsock1.Connect
    DoEvents
    If Winsock1.State = sckConnected Then
    MsgBox i & "Ii?o ioe?uo"
    End If
    Winsock1.Close
    Next i


    Вопрос:

       Делаю так:
      
    Dim WordApplication As Word.Application
      
    Private Sub PrintThis_Click()
    Set WordApplication = New Word.Application
    Set AppDoc = WordApplication.Documents.Open("C:\1.doc")
    WordApplication.Quit
    Set WordApplication = Nothing
    End Sub

    Вылетает ошибка автоматизации как раз на строке
    Set WordApplication = New Word.Application
    У меня стоит Word XP. Библиотека подключена. Почему вылетает ошибка и как это исправить?

    Ответ:

    Автор ответа: Анатолий

    В данном случае я пользуюсь таким кодом:
      
    Dim wda As Word.Application
    Dim wdd As Word.Document
      
    ' Если открывать существующий документ
    Set wdd = GetObject("C:\1.doc")
    Set wda = wdd.Parent
      
    ' Если создавать новый
    Set wda = CreateObject("Word.Application")
    Set wdd = wda.Documents.Add
    wdd.SaveAs "C:\1.doc"


    Можете заполнить эту форму, либо отослать вопрос СЮДА

    Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail ведущему рассылки.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх

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

    		 Сурменок Павел
    http://subscribe.ru/
    http://subscribe.ru/feedback/    		 Подписан адрес:
    Код этой рассылки: comp.soft.prog.vbnewsadvices    		 Отписаться
    В избранное