Отправляет 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
31


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


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

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

Статистика

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

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


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

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

VBNet VBMania
Ссылки:

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

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

       Новый выпуск. Это заметно?
    Читайте!


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



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

    Вопрос:

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

    Ответ:

    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

    наверх

    Как ловить нажатие системных клавиш?

    Вопрос:

    Привет, вопросик может у кого под рукой есть кусок кода или по памяти вставите как поймат системные клавиши типа Del, Esc, F5... i t.d.?

    Ответ:

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
       MsgBox KeyCode
    End Sub


        .::Savenger::.

    vbKeyDelete, vbKeyEscape, vbKeyF5 и т.д. соответственно.

    А если хочешь хнать побольше таких констант - залезай в Object Browser и ищи это: библиотека VBRUN, Класс KeyCodeConstants

    Или в коде напиши:
    if KeyCode=VBRUN.KeyCodeConstants. (и тут выпадет списочек констант).

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

    наверх

    Не подскажите как на сервере по http открыть файл?

    Вопрос:

    Не подскажите как на сервере по http открыть файл (если зараннее извесно какой) и содержимое его записать в textbox

    Ответ:

    Ставь лучше не просто текстбокс а Microsoft RichTextBox, он слова переносит сам.
    И еще понадобится Microsoft Internet Transfer Control.
    А теперь пиши куда надо эту строку:

    RichTextBox1.Text = Inet1.OpenURL("http://komifree.ru/avans/", icString)

        FELIX-RUS

    наверх

    Как поменять местами слова?

    Вопрос:

    Нужно сделать следующее: введя предложение из трех слов в текстбокс, и по нажатию кнопки, в этом предложении два последних слова должны поменяться местами. Как это сделать.

    Ответ:

    Dim masTemp() As String
    masTemp() = Split(Text1.Text, chr$(32))
    Text1.Text = masTemp(0) & " " & masTemp(2) & " " & masTemp(1)

        .::Savenger::.


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

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

    Вопросы:

    Автор вопроса: Данила

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

       Есть 2 проекта. Нужно сделать так, чтоб был один запускающий файл (форма с двумя кнопками для вызова каждого проекта), но оба этих проекта были каждый в своём файле, но эти файлы небыли запускающими (ЕХЕ). Скажите хотя бы, как это делается теоретически?

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

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

       Как в ASP.NET сделать так, чтобы юзер не смог вернутся на предыдущую страницу? Если я например загружаю на нее динамически UserControl.

    Автор вопроса: Великий князь

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

       Не подскажите ли, как в VB6 реализовать свойство прозрачности у флажка и переключателя (подобно свойству BackStyle у метки). Может, какие хитрые API-функции есть?



    Ответы:

    Вопрос:

       Чем отличается Direct3D от DirectDraw? Если кто знает, где найти учебник по DirectDraw, дайте ссылку.

    Ответ:

    Автор ответа: Тоша

    Direct3D обеспечивает 3D рисунки, кубы, шары и все такое.
    DirectDraw - это быстрый вывод на экран (общение напрямую с видео картой). Можно, например, делать анимацию... :) Быстрее...

    Вопрос:

       Как засунуть картинку в базу данных при помощи VB, как ее потом оттуда посмотреть в VB?

    Ответ:

    Автор ответа: Константин

    Я сам никогда не засовывал картинку в базу, но у меня есть немного описания как это делается. Не густо, но хоть что-то и на русском. В двух словах: для хранения изображения нужно использовать тип поля LongBinary (изображения и OLE-объекты). Для отображения и редактирования изображений из базы проще всего использовать элемент управления OLE Container. Он позволяет отображать данные и для редактирования вызывает назначенное (связанное с данными) приложение. Для подробного описания этого процесса черкани мне bdu_kosta@mail.ru


    Ответ:

    Автор ответа: oleks chemerys

    Запихнуть картинку в датабазу
      
      
    dim dim b() as byte
    dim ff as long
      
         
    ff = FreeFile
    Open "myPicture.jpg" For Binary Access Read As #ff
    ReDim b(FileLen("myPicture.jpg") - 1)
    Get #ff, , b()
    close #ff
    rs.Edit ' rs as Recordset в любой из библиоте ADO/DAO
    rs("myPict")= b() ' myPict имя поля в котором будет картинка
    rs.Update
      
      
    Достать картинку из базы (обратное действие)
      
    dim dim b() as byte
    dim ff as long
      
         
    ff = FreeFile
    b()=rs("myPict") ' myPict имя поля в котором будет картинка
    Open "myPicture.tmp" For Binary Access Write As #ff
    Put #ff, , b()
    close #ff
    Set Picture1.Picture=LoadPicture("myPicture.tmp")


    Ответ:

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

    Закодируй файл с картинкой при помощи алгоритма Base64 и сохрани полученую строку.

    Вопрос:

       В List1 имеется "неограниченное" items, нужно этот список сохранить в файл text.txt, как это сделать (загрузка получается нормально)?

    Ответ:

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

    dim i as integer
    dim str as string
    for i=0 to list1.listcount-1
         str=list1.list(i) & "&" & str
    next i
    str=left(str,len(str)-1) 'Убераем последний символ &
    open "c:\1.txt" for output as #1
    print #1,str
    ''''''''''''''''''''''''''''
    open "c:\1.txt" for input as #1
    input #1,str
    dim b() as string
    b=split(str,"&")
    for i=0 to ubound(b)
    list1.add b(i)
    next i


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

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

    наверх

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

    		 Сурменок Павел
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    В избранное