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

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

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 4.065 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.065 подписчиков
0 за неделю
←   Все выпуски   →

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


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

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

VBNet VBMania
Ссылки:

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

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

       У меня возник такой вопрос... Может кто хочет открыть на Subscribe рассылку в рамках проекта VBNet? Пишите.
    Читайте!


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



    Magazine CD

         На компакт-диске "Magazine CD" собран архив наиболее популярных русскоязычных электронных журналов о компьютерах. 20 изданий, среди них такие популярные, как AboutPC, IZone, HardCity, LennerS. Около 900 выпусков общим размером 680 мегабайт!
         Журналы, размещенные на компакт-диске, содержат статьи на самые разные компьютерные и околокомпьютерные темы: обзоры программного обеспечения, железа и интернет-ресурсов; полезные материалы о программировании, веб-дизайне, безопасности; юмор, литературные произведения околокомпьютерной тематики и многое другое.
         Все материалы опубликованы с согласия авторов, что отличает этот CD от дисков, выпускаемых пиратами.

         Стоимость диска с учетом доставки - 110 рублей.
         Диск распространяется на территории России по почте наложенным платежом.
      По вопросам доставки в страны ближнего и дальнего зарубежья пишите по адресу pavel@vbnet.ru


         Оформить заказ можно по этому адресу:

      http://vbnet.ru/Shop/CDs/ShowCD.aspx?id=11

      либо заполнив и отправив расположенную ниже форму заказа по электронной почте:

      mailto:pavel@soobcha.org?subject=magcdorder

      -----------------------------------
      Заказ на диск Magazine CD.

      1. Почтовый индекс:
      2. Страна: Россия
      3. Область:
      4. Район:
      5. Город/поселок:
      6. Улица:
      7. Дом:
      8. Кв:
      9. Фамилия Имя Отчество (полностью):
      -----------------------------------



    наверх

    Проблема с кодировками

    .NET >>> ASP .NET

    Вопрос:

    Проблема с TextBox в WebForms.
    Ставлю кодировку странички charset - кирилица Windows, запускаю, пишу в textbox слово на английском, нажимаю на кнопочку, результат - пустое поле textbox1.text!

    Ответ:

    Важно ли, чтоб страничка была именно в указанной кодировке?
    В Web.config есть такая штука:

    <globalization
    requestEncoding="utf-8"
    responseEncoding="utf-8"
    />

    Т.е. все идет в UTF-8, родном для .NET. Также непосредственно в коде для выбора конкретной культуры:

    Thread.CurrentThread.CurrentUICulture = new CultureInfo("ru");

    наверх

    Существует ли TreeView для WebForms?

    .NET >>> ASP .NET

    Вопрос:

    Существует ли компонента для WebForms типа TreeView? И если да, то где это можно взять?

    Ответ:

    http://www.asp.net/ControlGallery/default.aspx?Category=38&tabindex=2

    наверх

    Как использовать WbemScripting в .NET?

    .NET

    Вопрос:

    Как будет выглядить строка VBSCript на VB.NET?

    ' Создаем объект SWbemSink
    Set objSink = WScript.CreateObject("WbemScripting.SWbemSink","Sink_")

    Ответ:

    В .Net есть свои средства для доступа к WMI. Смотри пространство имён System.Management (в сборке System.Management.dll).

    наверх

    Как сконвертировать проект VB .NET 2003 в 2002?

    .NET

    Вопрос:

    Можно ли как-нибудь сконвертировать проект VB .NET 2003 в VB .NET 2002?

    Ответ:

    A Utility to Convert VS.NET 2003 Project Files

    наверх

    Как получить имя пользователя и компьютера?

    .NET

    Вопрос:

    Как получить имя пользователя и компьютера?

    Ответ:

    Environment.MachineName
    Environment.UserName


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

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

    Вопросы:

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

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

       Как сделать, чтобы прога на VB6 под XP имела XP-шный вид? Говорят, как-то патчить уже откомпилированную прогу надо... А может API есть или OCX c XP-контролами? Хотелось бы побольше советов и разных.

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

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

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

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

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

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



    Ответы:

    Вопрос:

       Есть N чисел. Как найти 3 числа, произведение которых максимальное?

    Ответ:

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

       Массивчик из чесел перебирать придется :)
       Начиная с первого:
         Перемножил первые три - запомнил
       Начиная со второго:
         Перемножил вторые три - запомнил
       Сравнение:
         Далее сравни, что больше, и запомни в переменную MAX
       Повторить :)


    Ответ:

    Автор ответа: Нагорянский Олег

    Советую найти из всех N три максимальных числа. Их произведение и будет максимальным.


    Ответ:

    Автор ответа: M@trix

    Надо найти 3 элемента, такие, что 1 - максимальный элемент, 2- максимальный из оставшихся, 3- максимальный из оставшихся, т.е. если массив 1 3 5 2 6 7, то нужно выбрать 7, 6 и 5 соответственно. Логично предположить что их произведение - максимальное


    Ответ:

    Автор ответа: Ольга

    Dim Mult as long
    DIm MMax as long ' максимум произведения 3-х чисел
      
    Redim M(N) ' массив чисел
    ....
    MMax=0
    for i=1 to N
       for j=1 to N
         for k=1 to N
            if (i<>j) and (i<>k) and (j<>k) then ' само на себя число не умножаем
              Mult=M(i)*M(j)*M(k)
              if MMax         end if
         Next k
       Next j
    Next i


    Ответ:

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

    dim m(n) as integer

    max=m(0)
    for i=0 to n
      for j=i+1 to n
        for k=j+1 to n
          if m(i)*m(j)*m(k)>max then max=m(i)*m(j)*m(k)
        next
      next
    next

    Вопрос:

       Необходимо из VB6 сгенерировать в Excel 100 случайных чисел с нормальным распределением и вставить их в определенные ячейки.

    Для справки, система - WinME, офис-XP, работает нормально.
    Библиотека MS Excel 10.0 Object Library в referenses подключена.

    Соорудил следующую конструкцию:

    Public XL As New Excel.Application
    XL.Workbooks.Open App.Path & "\" +"temp.xls"
    XL.Visible = True
    Set XL = ActiveWorkbook.Sheets.Application
    ...
    Application.Run App.Path & "\" + "ATPVBAEN.XLA!Random", ActiveSheet.Range("$B$2:$B$102"), 1, 100, 2, 5, 0, 1
    ...
    ActiveWorkbook.Close
    Set XL = Nothing


    Сначала все нормально, файл Excel открывается, но после "Application.Run ....." происходит ошибка:

    Run-time eror ' 1004'. Не удалось найти 'ATPVBAEN.XLA'. Проверьте месторасположение файла...

    Если вызов генератора случайных чисел записать в Exel в макрос и потом вызвать из VB, например: XL.Application.Run "temp.xls!makros1", то ошибка аналогичная, но происходит уже в Exel .

    Пробовал разные варианты, писал путь к ATPVBAEN.XLA, помещал его в директорию с книгой Exel и т.п., но результат тот же.

    Кстати, если посмотреть в открытую книгу Exel во время работы VB, то меню "Сервис--Анализ данных ..." отсутствует. Если закрыть VB то меню "Сервис--Анализ данных..." появляется .

    Искал по форумам, есть похожие примеры но такого не нашел.

    Ответ:

    Автор ответа: Игорь Сивов

    'Если я понял правильно, тогда попробуй так!
    'создай пустую форму, брось кнопку, вставь этот код
    Dim xl As Excel.Application
    Dim RndNumber As integer '
    Private Sub Command1_Click()
      Set xl = CreateObject("Excel.Application") 'создаем новый объект
          xl.Workbooks.Add ' создаем новую книгу
      For a = 1 To 100
       Randomize Timer
       RndNumber = (Int(Rnd * 100) + 1) ' генератор случайных чисел от 1 до 100
       xl.Range("A" & a).Select 'выбираем на листе1 ячейку
       xl.ActiveCell.FormulaR1C1 = RndNumber 'заносим сгенерированое число в активную ячейку
      Next a
      xl.Visible = True 'показываем созданную книгу
    ' Все!
    '
    End Sub


    Ответ:

    Автор ответа: Ольга

    Я что-то не поняла, почему так сложно. А такой вариант не подойдет?
      
    ' сто случайных чисел от 0 до 1

    Private XL As New Excel.Application
    Dim xlSheetV1 As Excel.Worksheet ' Лист1
    XL.Workbooks.Open App.Path & "\" + "temp.xls"
       XL.Visible = True
       Set xlSheetV1 = XL.Sheets("Лист1")
      ' ввод формулы случайного числа в 100 ячеек 1-го столбца на 1-м листе
       For i = 1 To 100
         xlSheetV1.Range("A" & i).Formula = "=RAND()"
       Next i


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

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

    наверх

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

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