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

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


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

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


VBNet VBMania
Ссылки:

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

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

       Эх, блин, опять школа начинается :( Опять придется спать утром не дома, а в школе, краем уха слушая всякий бред про Достоевкого с Чеховым и походы русских полководцев:)))
    Читайте!


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




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

    Вопрос:

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

    Ответ:

    Создай обычную формочку (Splash)
    Добавь в проект модуль кода (Add Module)
    В этом модуле создай процедуру Sub Main() из которой показывай свою формочку

    Sub Main()
         Form.show
    end sub

    В Меню VB Project --> Project Properties в StartUp Object установи Sub Main
    А далее из этой формы по истечение определенного времени (можно по таймеру) запускай основную форму программы, а эту выгружай.

        Сергей Л.

    наверх


    Как узнать на каком элементе TreeView был сделан Right click ?

    Вопрос:

    Как узнать на каком элементе TreeView был сделан Right click ?

    Ответ:

    В событии NodeClick дерева нет параметра Button. Поэтому чтобы отслеживать нажимаемые кнопки в этом событии можно использовать следующий код:

    Option Explicit
    Dim vButton As Integer

    Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As
    Single, y As Single)
         vButton=Button
    End sub

    Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
         'В переменной vButton хранится номер нажатой клавиши мыши.
         'Можете добавить код для его обработки.
    End sub

    Работает все так: событие MouseDown происходит раньше NodeClick. Перед событием NodeClick положение клавиши запоминается в событии MouseDown, все просто.

        Дмитрий

    наверх


    Как текст отправлять по SMTP?

    Вопрос:

    Как текст отправлять по SMTP? Мне надо чтобы VB .Net забирал текст из текстбокса и, по SMTP, отправлял его на e-mail.

    Ответ:

    Можно и без знания протокола SMTP. Взгляни на пространство имён System.Web.Mail. Класс SMTPMail - собственно, для отправки письма. Там указывается smtp-сервер. Класс MailMessage (могу ошибиться в названии) - это само письмо. Задаются поля Тема, От, Куда, Копия, Скрытая копия, приоритет и т.д.

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

    наверх


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

    Вопрос:

    Как проверять дату файла? А то нужно к програме пикрутить типа процедуру чтобы "видела" что появился новый фаил. Подскажите как сканировать директорию чтобы найти самый новый фаил.

    Ответ:

    Function FileDateTime(PathName As String)
         Member of VBA.FileSystem
         Returns the date and time stamp of a file

        .::Savenger::.

    наверх


    Как из одной формы открыть другую?

    Вопрос:

    Как из одной формы открыть другую?

    Ответ:

    1. Form1.show [ vbModal]
    2. Dim form as new Form1
            form.show

        Viaceslavas Kaleda



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

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

    Вопросы:


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

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

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


    Автор вопроса: Виктор

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

       Можно ли сделать так, чтобы при запуске определенного приложения запускалась одновременно и моё приложение?


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

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

       Медленно схожу сума... Пишу свой Commander (во всех командерах чего-то не хватает :) В одном тетриса из DN, в другом создание списков из Frigate, в третьем скорость из WinCMD, в четвертом плагины из FAR). Написал на 75%... Загвоздка в ... переименовывании файлов. У меня уже едет крыша - я не могу переименовать ни одного файла.

    Сначала у меня стоял Windows ME - там конструкция NAME file1 AS file2 - работала на ура. И каталоги переименовывала... вобщем все бы ничего, но я поставил XP с целью проверить работоспособность под этой системой(сами знаете... конфликты и все такое)... и переименовывание не работает. Пишет то, пермишион дэнад, то акцес еррор. Я уже использовать АПИ MoveFile, уже FSO подключал - не работает и все.

    Товарищи помогите кусочком кода ;) И если возможно разъяснением проблемы - а то я в XP цельных два дня работаю... не привычно... тонкостей не знаю.


    Автор вопроса: Яков

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

       Как написать эквалайзер на VB?


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

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

       Как средствами VB запустить на выполнение exe файл с параметрами.?
    test.exe c:\file.dbt c:\file2.def


    Автор вопроса: Всеволод

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

       Не могу найти API функцию, с помощью которой можно бы было написать озвучивание строк - например данные из Label или Text. У Д.Эпплмана этого я не нашел. (У меня Windows ME).


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

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

       Вопрос у меня по поводу сети. Есть у нас самая простая локальная сеть (все ПК под XP мучаются). Как можно получить список разшаренных файлов на удаленной машине и как можно их открывать (в локале), копировать (на локальную машину) и т.д.




    Ответы:


    Вопрос:

       Не всегда понимаю, что нужно писать в модули, и зачастую просто копирую чужую работу абсолютно безбашенно :))
    Не подскажет ли кто-нибудь адрес электронного учебника именно по этой части VB?

    Ответ:

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

    Специализированной литературы про то, что надо писать в модуле, ты скорее всего не найдешь, но писать в нем можно все что угодно. Вот пример:
    Ты делаешь "Мастера" по вводу определенных данных. Сначала пользователь вводит 10 чисел, на втором шаге он вводит 5 цифр. Тебе необходимо найти максимум в одной и во второй последовательности, после нажатия кнопки либо на форме для ввода первой последовательности, либо на форме для ввода второй
    последовательности.
    Ты можешь сделать так:

    private sub command1_click()
    -----поиск максимума
    end sub
    private sub command2_click()
    -----поиск максимума
    end sub

    Сделав одинаковые операции в двух процедурах. Также можешь в одной из форм написать:

    Public function MaxEl(Value() as integer) as integer
    -----поиск максимума
    end function

    И вызвать эту функцию из другой формы.
    Но если тебе очень хочется ты можешь кинуть эту функцию в модуль и она там будет храниться.
    Так же в модуле ты можешь объявлять глобальные переменные и константы,
    Декларировать функции из других библиотек.

    К примеру: А если хочешь использовать свою функцию в других своих приложениях то можешь написать класс

    public class MAXXX
    dim m_value as new collection
    public sub Addvalue(Value as integer)
         m_value.add value
    end sub
    Public function MaxEl() as integer
    ----Поиск max
    end function
    end class




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

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

    наверх


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

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

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

    В избранное