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

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

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


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


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

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

Статистика

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

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


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

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

VBNet VBMania
Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • VB на русском
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • MDesign
  • IgorykSoft
  • DanSoft
    		• Господа!!! читайте MSDN!!!

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

       Здравствуйте...
    Читайте!


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



    Как создавать буфер CopyMemory?

    Вопрос:

    Как создать буфер CopyMemory"?
    Допустим что все строки длинной в 10 символов.

    Type Meseg
        Stroka1 As String * 10
        Stroka2 As String * 10
        Stroka3 As String * 10
    End Type

    Ответ:

    Тогда буфер будет длинной 30.

    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

    dim msgMessage as Meseg
    dim szBuff as string * 30

    'здесь заполняем msgMessage

    CopyMemory szBuff, msgMessage, 30

    'здесь передаём...

     Структура может содержать любые элементы фиксированной длинны (long, intenger, boolean и пр)

        IvanR

    наверх

    Что такое Microsoft Agent?

    Вопрос:

    Что такое Microsoft Agent, для чего он, с как его использовать, что он делает?

    Ответ:

    Видел в офисе скрепку? Это реализовано на технологии MS Agent (по крайней мере в Office XP точно). С её помощью показывают персонажей MS Agent, которые анимированы. Если установлены соответствующие движки, то персонажи могу говорить (даже по русски) и понимать речь (пока только английскую). Можно почитать замечательную статью Шатрыкина Ивана "Использование MS Agent" на сайте www.VBNet.Ru.

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

    наверх

    Как отправить письмо средствами почтового клиента?

    Вопрос:

    Как можно отправить письмо средствами почтового клиента? То есть, у меня есть текст письма, тема и адрес. Нужно, чтоб почтовый клиент открыл окно Создание Сообщения и там уже было все это. Знаю, что можно использовать в коммандной строке mailto:asd@qwe.rt. Туда же можно подставить тему письма и текст письма, но я не знаю как.

    Как вызывать коммнаду mailto... Знаю, что есть спец. API, которая выполняет команду. Какая?

    Ответ:

    Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal _
    hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVallpParameters _
    As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)

    Call ShellExecute(0&, "Open", "mailto:" + "ЛОГИН@СЕРВЕР.ru" + "?Subject=" + _ "'Здесь описана тема...'" + "&body=" + "'Сдесь нужно написать сообщение'", "", "", 1)

     Только длина строки ограничена ~255 символами.

        Алексей

    наверх

    Как вызывать файл help.chmp?

    Вопрос:

    Написал хелп (help.chm) к своей программе, а как "вставлять/вызывать" его - не знаю.

    Ответ:

    lngRet = WinHelp(hWnd, "Helpfile.hlp", 1, Number_of_topic)

        .::Savenger::.

    наверх

    Чем отличаются классы Trace и Debug?

    Вопрос:

    Чем принципиально отличаются классы Trace и Debug?

    Ответ:

    Trace используется для Web-приложений.
    Насколько я знаю, Trace - для вывода информации на страницу, а Debug - в IDE в окошко типа Command или Output.

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


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

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

    Вопросы:

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

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

       Как можно "засечь" продолжительность интернет соединения?

    Автор вопроса: Alexwander IV

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

       Сделал первый свой контрол. Из двух label'ов вроде как получилась одна плоская кнопка. Скомпилировал в OCX. Подключаю к проекту. Label'ы шевелятся как задумано, а что будет в случае клика по label'у, никак не прописать.

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

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

       Загружаю в PictureBox картинку

    IkonkaPicture = LoadPicture(путь к картинке)

    Теперь хочу, чтобы вместо rgb(255,255,255) был прозрачный фон (не закрашивались что бы). А то VB проверять каждый пиксель на rgb(255,255,255) будет долго.

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

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

       Как отослать письмо с помощью VB, не используя контролов?

    Автор вопроса: Юрий

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

       Как создать приложение, которое бы показывало, кто подключается к тебе в ЛС.

    Автор вопроса: Сергей

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

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

    Автор вопроса: Сергей

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

       Как можно отправить некоторые данные в интернет на определеныый сайт в определеное место? Что надо для этого сделать?

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

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

       Подскажите, как из GUI можно вызвать на выполнение консольное
    приложение с двумя параметрами, то есть prog.exe param1 param2 ?



    Ответы:

    Вопрос:

       Как можно посчитать, сколько в числе символов?

    Ответ:

    Автор ответа: TN

    Dim N As Double
    Dim L As Integer
         N = 3412434.235215
         L = Len(CStr(N))
         Debug.Print L


    Ответ:

    Автор ответа: Markelov Eduard

    Символов в числе столько, сколько раз оно делится на 10.


    Ответ:

    Автор ответа: Sergey

    Если это целое число, то

    Dim Number As Long
    Number = 23

    Len(Cstr(Number))

    Если с плавающей запятой, то

    Dim Number As Double
    Number = 23.34

    Len(replace(replace(Cstr(Number),".",""),",",""))

    Вопрос:

       Пишу макрос под Word на VB, в самом тексе документа (шаблона) есть таблица, как ее можно удалить (программно)? Т.е. она должна при определенных условиях у меня исчезать (удаляться), допустим при нажатии определенной клавиши.

    Ответ:

    Автор ответа: Кирко Владимир

    Вот так, например:

    ActiveDocument.Tables(1).Delete

    Вопрос:

       Как програмно нажать кнопку "Print Scrn"? Или к-нить другой способ занесения видимого изображения в буфер обмена.

    Ответ:

    Автор ответа: Максим

    На сайте vbnet есть точно. Сам видел.

    Вопрос:

       Как удалить надпись из ListBox по индексу, т.е. есть кнопка, листбокс и текстовое поле, надо ввести, ну например 0, и нажать кнопку, а из листа должна удалиться первая строчка.

    Ответ:

    Автор ответа: Максим

    Просьба ко всем человечеству: указываете версию vb (.Net или младше).
    Для 6:

    List.removeitem(index)

    Для .net:

    List.items.remove(index)

    или

    List.items.removeat(index)


    Ответ:

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

    listbox1.remove(clng(inputbox("ZZZ")))

    Вопрос:

       Как узнать подключен ли компьютер к Инету и если да то проверить по адресу http://www.myhost.ru/my_programm.exe размер файла и если он изменился вывести сообщение о возможности обновления программы?

    Ответ:

    Автор ответа: Сан Саныч

    Посмотри исходники плагина прворяющего обновление проги:
    http://apexsun.narod.ru/progs/noterepad/plugins/check_update_src.zip
    там есть проверка соединения, но нет вычисления размера файла. Там применен другой метод проверки апдейтов: скачивается текстовый файл размером не больше 5 байт. В этом файле хранится число - версия программы на сервере.


    Ответ:

    Автор ответа: Максим

    Почему размер, а не дату последней модификации?
    Если для вб6, то изучай винсок, если для .нет, то у объекта webresponse смотрим свойство contentlength (для твоего варианта) или коллекцию headers, в
    котором есть пункт last-modified.

    Вопрос:

       Пишу:

    Text1.Text = "Строка1" & Chr(13) & "Строка2"

    А он мне всё в одной строке выдаёт, а вместо новой строки пишет символ перехода строки!
    Как разнести переменные по строкам в Text1.text?

    Ответ:

    Автор ответа: Николай

    У тескстбокса Text1 нужно выставить MultiLine в True. А код должен быть таким:

    Text1.Text = "Строка1" & Chr(13) & Chr(10) & "Строка2"


    Ответ:

    Автор ответа: Хатламаджиян Виталий Арутюнович

    Text1.Text = "Строка1" & Chr(13) & Chr(10) & "Строка2"
      
    или лучше
      
    Text1.Text = "Строка1" & vbCrLf & "Строка2"
    'vbCrLf - существующяя константа. Её значение: Chr(13) & Chr(10)

    Вопрос:

       dim m as string
    dim d as string
    m= "my name is max"

    Как можно записать в переменную d ну скажем 4 знак от m? (желательно без массива)
    И как можно заменить произвольный символ (ну скажем 5 знак) на "x", чтоб получить d="my nXme is maxx"?

    Ответ:

    Автор ответа: Максим

    Есть целый набор функций для работы с текстом. VB превосходит некоторые популярные языки программирования в этом деле, тот же С (не нужно работать с массивом символов).
    В vb .net их намного больше, нежели в vb6.
    Функции:

    Mid(строка, позиция, длинна) получить/заменить подстроку
    Left(строка, длинна) получить несколько символов слева
    Right см. выше, только справа
    Replace заменить символы в строке
    Instr найти первое вхождение символа


    Ответ:

    Автор ответа: Николай

    Dim m As String
    Dim d As String
         m = "my name is max"
         Debug.Print m
         d = Mid(m, 4, 1) 'Ну, например, 4-й знак
         Debug.Print d
         d = Left(m, 4) & "X" & Mid(m, 6) 'Например, 5-й знак на X
         Debug.Print d


    Ответ:

    Автор ответа: SV

    Left$("строка", кол-во символов) - возвращает заданное кол-во символов с левого конца строки
    Right$("строка", кол-во символов) - возвращает заданное кол-во символов с правого конца строки
    Mid$("строка", позиция начального символа, кол-во символов) - возвращает заданное кол-во символов с начального символа

    1) d=Mid$(m,4,1)
    2) Mid$(m,5,1)="X"


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

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

    наверх

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

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

    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу

    В избранное