Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VB Построить график Y = sin x – cos x Выложите код пожалуйста https://www.cyberforum.ru/ visual-basic/ thread699788.html Как показать уведомление (сообщение) из трея VB
Здравствуйте, подскажите пожалуйста как послать уведомление (сообщение) из трея? У меня такой код для трея: Option Explicit 'декларация функций Win32API Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long...
VB Как будет изменяться оклад в течение 3 лет у сотрудника, если его увеличивают каждое полугодие на 15% от начального Оклад сотрудника фирмы увеличивают каждое полугодие на 15% от начального. Как будет изменяться оклад в течение 3 лет? Начальный оклад составил 1000 руб. Выложите плс код ПРОГРАММЫ ЦИКЛИЧЕСКОЙ СТРУКТУРЫ В VISUAL BASIC https://www.cyberforum.ru/ visual-basic/ thread699780.html VB Найти и подсчитать делители числа. Подпрограмма Дано натуральное число. Найти все его делители. подсчитать их количество. (подпрограмма. Процедуры и функции.) https://www.cyberforum.ru/ visual-basic/ thread699734.html
Перенести данные с листа на другой лист VB
Добрый вечер! у меня такая проблема: у меня на Лист1 есть 20 чисел, которые генерируются случайно в ячейки A1:A20. Необходимо, чтобы при нажатии на кнопку положительные числа переносились на Лист2, а отрицательные - на Лист3. Вот, что получилось у меня, но это как-то неправильно) Public Sub Perenos() Dim I As Integer, IndPol As Integer, IndOtr As Integer, X As Long IndPol = 2 IndOtr = 4...
VB Перестроить массив, включив в него числа, принадлежащие отрезку [-30;-20] и все положительные https://www.cyberforum.ru/ visual-basic/ thread699699.html
Помогите решить задачи в VB. 1. Из старого массива Z(12) составить новый B(N), включив в него числа, принадлежащие отрезку и все положительные. Найти количество нулевых чисел. На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск. П.4.4., 5.16 Правил форума. Остальные вопросы придется перепечатать.
VB Как открыть файл формата *.kod и извлечь информацию https://www.cyberforum.ru/ visual-basic/ thread699645.html
Сразу прошу прощения, незнаю в каком разделе следовало мне отписатся... у меня есть прога очень старая, гдето 1998 года... она представляет собой обучающую программу. Мне нужно достать из нее текст инф... покапался в папках нашел там папку TXT, но внутри файлы не понятного формата .KOD кто знает как извл от туда информацию плс помогите!
Вывести на форму таблицу и график функции VB
Здравствуйте. Есть функция: y = exp(x-2)+x^2+3. Необходимо вычислить значение функции в заданном интервале, вывести результат в таблицу, а также по вычислениям построить график. Область изменения аргумента выбрать самостоятельно в соответствии с областью допустимых значений, который может принимать аргумент. Есть такие наработки: Option Explicit Public Sub Command1_Click() Dim x As...
VB Как изменить цвет Progress Bar - Исходник Проблема в том, что напрямую через свойства контрола нельзя менять цвет баров и цвет фона у Progressbar. Однако, через API эту проблему можно решить. Найден на просторах Интернета. Пользуемся! Кого достал стандартный ProgressBar. https://www.cyberforum.ru/ visual-basic/ thread699216.html VB Даны 3 действительных числа. Выбрать те числа, которые принадлежат заданному интервалу 1. Даны 3 действительных числа. Выбрать те числа, которые принадлежат интервалу (1;3) На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск. П.4.4., 5.16 Правил форума. Остальные задачи Вам придется перепечатать заново. https://www.cyberforum.ru/ visual-basic/ thread698978.html
Определение упорядоченности рандомного массива VB
Люди помогите, нужно сделать следующую прогу: 1) пользователь задает размерность массива, далее он заполняется случайными числами и выводится на экран. 2) далее необходим определить упорядочен массив или нет, если да то как по убыванию или по возростанию и вывести на экран как именно он упорядочен, если он не упорядочен, выделить две цифры "сбоя" упорядоченности в выведенном на экрне массиве...
VB Хранение в проекте и воспроизведение аудиозаписи привет всем) как и куда в программе Visual Basic вставить аудиозапись?:) https://www.cyberforum.ru/ visual-basic/ thread698910.html
Эксперт WindowsАвтор FAQ
17996 / 7697 / 892
Регистрация: 25.12.2011
Сообщений: 11,470
Записей в блоге: 16
08.12.2012, 01:55  [ТС] 0

FileSystemObject – тяжелая артиллерия VB6 (статья) - VB - Ответ 3821163

08.12.2012, 01:55. Показов 37999. Ответов 6
Метки (Все метки)

Ответ

Трюк с записью бинарной информации через FSO
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim strPath, n, strHexData
 
'Файл-получатель
strPath = "l:\Bash\LammV\IPTEST\Binary Write\bin.dat"
 
'Байты в 16-ричной СС
strHexData = "0102030405"
 
With CreateObject("Scripting.FileSystemObject")
  with .OpenTextFile(strPath, 2, True) '2 - ForWriting, True - Overwrite
   
    For n = 1 To len(strHexData) Step 2
 
      .Write Chr(Clng("&h" & Mid(strHexData, n, 2)))
    Next
   
    .Close
  End with
End With


Вернуться к обсуждению:
FileSystemObject – тяжелая артиллерия VB6 (статья) VB
Миниатюры
FileSystemObject – тяжелая артиллерия VB6 (статья)  
6
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2012, 01:55
Готовые ответы и решения:

FileSystemObject could not be loaded при добавлении FileSystemObject в компоненты
Привет. Хочу добавить FileSystemObject в компоненты. Выбираю файл scrrun.dll, нажимаю 'Apply',...

Windows 2000 Rus VB6, VB6 Resource Editor отсутствует
В Windows 2000 Rus + SP3 проинсталлировал Visual Studio 6 + MSDN Full (вся студия на 6 CD-R). В VB6...

Контроль длины Label. А также VB6 Portable vs VB6 Installed.
Исходя из заголовка темы, вопроса 2: 1.) Как определить, что в Label уже не хватает места для...

Тяжелая Контрольная
Преподша дала задание по VB, а я его вообще не знаю. Она сказалы мы его поверхостно проходим, а...

6
08.12.2012, 01:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2012, 01:55
Помогаю со студенческими работами здесь

Очень тяжелая ситуация
https://www.cyberforum.ru/bsod/thread1533685.html#post8090105 Это начало А теперь поясню...

Слишком тяжелая программа.
Я написала небольшую игру. Всего в три уровня. Но один только exe файл весит 14 мега. А весь...

Тяжелая GIF анимация
Всем привет,у меня есть гифка размером в 70 мб и из-за веса билдер Embarcadero RAD Studio XE2 не...

тяжелая цепь массой М
Тяжелая цепь имеет массу М и длину L. Часть ее лежит на горизонтальной подставке, а часть (длиной...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru