Отправляет 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: новости сайтов, советы, примеры кодов. Выпуск 257.


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

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

VBNet VBMania
Ссылки:

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

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

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


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



    Как построить график фукнции?

    Вопрос:

    Хочу построить простой график функции (например y=2^x+3 или другой) На форме у меня picture1, command1, text1(ввожу в textbox например x^2+3, но так ничего неполучается. У меня только получается, когда я функцию записываю в код(в цикл y=x^2+3), но хочется сделать, чтобы функция считывалаяь из textboxa.

    Ответ:

    Насколько я понял, вся проблема упирается в получение значения произвольной формулы. Так вот, можно подключить Ексель, а у него есть функция Evaluate - т.е. можно сделать так: Dim XL as new Excel.Application
    Dim res as Double
    Dim i as integer
    Dim s as string

    For i=-20 to 20
        s=Replace(Text1.Text, "zzz", Str(i))
        res=XL.Evaluate(s)
        .....
    Next
    Для этого надо поставить Ексель и подключить его в Project -> References... Также нужно вместо переменной использовать одно и то же сочетание (в примере - ZZZ), чтобы реплейс корректно срабатывал. Хотя можно и еще один текстбокс с именем переменной...

        Рязанов Андрей

    На http://www.vb.kiev.ua/code/math/ множество графопостроителей и вычислителей выражений.

        Артем Кривокрисенко

    наверх

    Как закрыть все дочерние окна?

    Вопрос:

    Как закрыть все дочерние окна МДИ-программы ? Т.е. закрыть окна не выходя из самой программы..

    Ответ:

    dim f as form
    For each f in forms
        if f.MDIChildthen then unload f.name
    next

        Shemyakin, Dmitry

    наверх

    Как закрыть окно?

    Вопрос:

    Что написать в коде чтобы по окончании выполнения программы Form_Load она закрывалась сама, т.е. не закрывать её в ручную.

    Ответ:

    Unload Me (или Unload [имя формы])

        Дмитрий Данелия

    Можно так:
    lngTemp=DestroyWindow (hwnd)
     АПИ работает быстрее.

        Артем Кривокрисенко

    наверх

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

    Вопрос:

    Проблема такая. Ставлю я свою программу генерировать то, что мне надо, а тем временем переключаюсь в другую программу. Как мне сделать, чтобы после окончания работы программа обратила на себя мое внимание помигиванием на нижней панельке (так же как это делает IE, когда страничку загрузит) ?

    Или пусть она вылезает поверх всех окон.

    Ответ:

    В форму:

    Private Sub Form_Load()
        Call SetFormPosition(Me.hwnd, True)
    End Sub

     В модуль:

    Public Declare Function SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal wFlags As Long) As Long
    Public Const HWND_NOTOPMOST = -2
    Public Const HWND_TOPMOST = -1
    Public Const SWP_NOACTIVATE = &H10
    Public Const SWP_NOMOVE = &H2
    Public Const SWP_NOSIZE = &H1

    Public Sub SetFormPosition(frmHandl As Long, TopPosition As Boolean)
        If TopPosition Then
            SetWindowPos frmHandl, HWND_TOPMOST, 0, 0, 0, 0, _
                SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE
        Else
            SetWindowPos frmHandl, HWND_NOTOPMOST, 0, 0, 0, 0, _
                SWP_NOSIZE Or SWP_NOMOVE
        End If
    End Sub

     И будет надёжно поверх всех окон.

        Stranger757

    Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

    Private Sub Command1_Click() ' Окно мигает 5 раз для привлечения внимания
        Dim c As Integer, retval As Long
        For c = 1 To 10 ' 5 раз цвет активного окна и 5 раз - неактивного
            retval = FlashWindow(Form1.hwnd, 1) ' переключаем вид окна
            Sleep 500 ' пауза через каждые 500 миллисекуд (1/2 секунды)
        Next c
        retval = FlashWindow(Form1.hwnd, 0) ' окно должно выглядить активным
    End Sub

        Viaceslavas Kaleda

    наверх

    Где можно скачать бесплатный OCX SMTP клиента?

    Вопрос:

    Есть у кого бесплатный OCX SMTP клиента? А то неудобно процедуры отдельные переносить из программы в программу, а с OCX'ом было бы всё быстро и удобно!

    Ответ:

    Activex.com
    Раздел internet - там много этих SMTP ocx'ов и dll'ей, есть и бесплатные.
    Раздел Internet:
    http://active-x.com/category.asp?categoryid=1

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


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

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

    Нет вопросов.


    Ответы:

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

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

    наверх

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

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

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

    В избранное