а где можно скачать Visual Studio или как том оно называется... вощем среда разработки от Мелкомягких ?
» Visual Basic 6
Хочется через Word создать макрос, который будет сохранять файл, придавая ему название, используя текст в буфере. Например, я копирую заголовок документа, нажимаю "Сохранить как...", в имя файла вставляю текст из буфера и сохраняю с этим именем.
Текст макроса в Visual Basic выглядит следующим образом:
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
ChangeFileOpenDirectory "С:\Аналитика\"
ActiveDocument.SaveAs FileName:="FFFFFFF.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub
Так вот проблема в том, что я не могу придать имя файла - текст, скопированный в буфер обмена. Как мне вместо "FFFFFFF.doc" присвоить текст из буфера, как это записать?
Через Excel как то все понятно, присваиваешь имя определенной ячейки и все. А как поступить в данном случае?
Текст макроса в Visual Basic выглядит следующим образом:
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
ChangeFileOpenDirectory "С:\Аналитика\"
ActiveDocument.SaveAs FileName:="FFFFFFF.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub
Так вот проблема в том, что я не могу придать имя файла - текст, скопированный в буфер обмена. Как мне вместо "FFFFFFF.doc" присвоить текст из буфера, как это записать?
Через Excel как то все понятно, присваиваешь имя определенной ячейки и все. А как поступить в данном случае?
Как сделать звуковое сопровождение в ?
Например, так, чтобы звуковое сопровождение не прерывалось:
Код: Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_LOOP = &H8
Private Const SND_ASYNC = &H1
Dim yoursound
yoursound = sndPlaySound("твой звуковой файл", SND_ASYNC Or SND_LOOP)
Код: Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_LOOP = &H8
Private Const SND_ASYNC = &H1
Dim yoursound
yoursound = sndPlaySound("твой звуковой файл", SND_ASYNC Or SND_LOOP)
Привет всем! Я смотрю здесь собрались все такие олдовые программеры, что я вообще мало что понимаю... 
Может мне тоже поможете, у меня есть серъёзная проблемма, даже пол-литры не помогают
Вообщем вопрос в следующем:
Мне оч. нуна заставить читать мою прогу все файлы с диска по очереди, как это делает ну например касперский при проверке. ????????????
(Скрытые, системные и т.д.)
Помогите ПлИз!
Может мне тоже поможете, у меня есть серъёзная проблемма, даже пол-литры не помогают Вообщем вопрос в следующем:
Мне оч. нуна заставить читать мою прогу все файлы с диска по очереди, как это делает ну например касперский при проверке. ????????????
(Скрытые, системные и т.д.)
Помогите ПлИз!
Memfivosfey
Один из способов:
Используй функцию Dir
Dir("путь", VbSystem)
Смотри описание и примеры для этой функции в хелпе VB
Один из способов:
Используй функцию Dir
Dir("путь", VbSystem)
Смотри описание и примеры для этой функции в хелпе VB
нашла ужо.
Цитата:
Давайте задавать общие вопросы по Visual Basic 6 здесь
А по Visual Basic .NET где вопросы задавать? Вобщем попробую...
Только собрался так сказать выучить какой нить язык программирования, начать решил с NS Visual Studio .NET/ VB .NET etc., для начала...
Вопрос вот в чем: подкиньте плиз кусок кода(код) для выполнения следующего -
ну в самом простом случае есть объект "текстовое поле", с вбитыми туда директориями типа X:\01.02.05,01.03.05, etc., и "кнопка" Delete, при нажатиии на которую на этом самом X:\ потротся ВСЁ (!) КРОМЕ ТОГО что указанно В "текстовое поле"!
Во как! Как замутить? Если кто все же решит помочь заранее благодарю!
ghost3k
Все примеры взяты из хелпа. Комбинируй и учись. А домашние задания за тебя никто делать не будет.
Для того, что бы найти все директории на диске, используй функцию DIR
[more]
Код: ' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
' Display entry only if it's a directory.
Debug.WriteLine(MyName)
End If
MyName = Dir() ' Get next entry.
Loop
Все примеры взяты из хелпа. Комбинируй и учись. А домашние задания за тебя никто делать не будет.
Для того, что бы найти все директории на диске, используй функцию DIR
[more]
Код: ' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
' Display entry only if it's a directory.
Debug.WriteLine(MyName)
End If
MyName = Dir() ' Get next entry.
Loop
Помогите реализовать через VisualBasic.
Имеются два Excel' евских файла: "Организации.xls" и "Метода.xls".
В файле "Организации.xls" есть список организаций (столбец А), каждому из которых присвоен свой балл (столбец С). В файл "Метода.xls" ежемесячно рассчитывается этот балл для каждой организации. После расчета в ячейке A1 указывается название организации, а в ячейке O73 - расчитанный балл. После этого я копирую O73, перехожу в файл "Организации.xls", в столбце A нахожу строку с нужной организацией (ее название указано в ячейке A1 файла "Метода.xls") и в эту строку по столбцу С вставляю скопированный балл. Хотелось бы автоматизировать этот процесс (создать кнопку, по нажатию на которую выполняются сразу все эти действия), т.к. он очень часто повторяется. Проблему для меня составляет процесс поиска нужной организации, чтобы скопированный балл вставить именно для него.
Range("O73").Select
Selection.Copy
Windows("Организации.xls").Activate
Здесь и должен быть описан процесс поиска организации (название - значение в ячейке A1 файла "Метода.xls") в столбце А файла "Организации.xls", чтобы затем присвоить ячейке (в этой же строке и столбце С) скопированное значение.
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Имеются два Excel' евских файла: "Организации.xls" и "Метода.xls".
В файле "Организации.xls" есть список организаций (столбец А), каждому из которых присвоен свой балл (столбец С). В файл "Метода.xls" ежемесячно рассчитывается этот балл для каждой организации. После расчета в ячейке A1 указывается название организации, а в ячейке O73 - расчитанный балл. После этого я копирую O73, перехожу в файл "Организации.xls", в столбце A нахожу строку с нужной организацией (ее название указано в ячейке A1 файла "Метода.xls") и в эту строку по столбцу С вставляю скопированный балл. Хотелось бы автоматизировать этот процесс (создать кнопку, по нажатию на которую выполняются сразу все эти действия), т.к. он очень часто повторяется. Проблему для меня составляет процесс поиска нужной организации, чтобы скопированный балл вставить именно для него.
Range("O73").Select
Selection.Copy
Windows("Организации.xls").Activate
Здесь и должен быть описан процесс поиска организации (название - значение в ячейке A1 файла "Метода.xls") в столбце А файла "Организации.xls", чтобы затем присвоить ячейке (в этой же строке и столбце С) скопированное значение.
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Помогите с проблемой. Всю справку перерыл, но так и не нашел. Как строку текста разделить? Допустим имеется строка "абвгд123", надо сделать три "абвгд", "1", "2", "3".
Смотри функции для работы со стрингами Instr, Left, Right, Mid
Давным давно играл такую игру, называется "Балда", кто не знает,
вот тут: http://ware.aktobe.kz/games/Balda.zip .
Смысл в том, что в поле есть слово. К этому слову надо подставлять буквы, чтобы получить другое слово. Чем больше букв в слове, тем больше очков......
Кстати очень интересно. Игра работает под DOS .
как можно реализовать эту игру под VB6?
у меня нехватает воображения, как составить логоритм опознания слов.
Все слова находятся в текстовом файле.
У кого есть интерес помочь?
вот тут: http://ware.aktobe.kz/games/Balda.zip .
Смысл в том, что в поле есть слово. К этому слову надо подставлять буквы, чтобы получить другое слово. Чем больше букв в слове, тем больше очков......
Кстати очень интересно. Игра работает под DOS .
как можно реализовать эту игру под VB6?
у меня нехватает воображения, как составить логоритм опознания слов.
Все слова находятся в текстовом файле.
У кого есть интерес помочь?
Подскажите пожалуйста гд можно скачать Visual Basic 6.0 нужно срочно!
Заранее благодарю!
Заранее благодарю!
Rush
Огромное спасибо!
Огромное спасибо!
wjuri
открывашь .txt как output (может input - не помню - главное прочесть)
Далее читаешь каждую строку и используешь Enter (vbCrLF) или пробел, как delimeter и загоняешь в массив (array). Далее стандартный Quick Sort и поиск Bynary Search. Если файл очень большой, то для чтения используй прием "mapping file" - чтение файла по кускам по offset от первого байта, т.е. считываешь n-е количество байтов во времнную память (объем куска зависит от RAM компьютера, я брал ~16 Kb) - kernel.dll APIs. Если интересует, пиши в ПМ и дай e-mail - вышлю file mapping sample
Поиск - если латинница, то и ASCII сойдет, если же кириллица, то с Unicode у VB6 проблемы (со знаками -, _ и т.д.. -function StrComp выдает ерунду) , надо проверить как работают string functions и, возможно, придется поискать API или сверять слово по байтам (каждый character в String Variable - это 2 байта 1-й байт - ASCII Code, второй - 0 ( Chr(0)) - это будет по-медленнее, чем встроенные VB String functions, но если есть желание - этот кусок можешь написать на C (моему боссу и такой поиск за глаза хватил)
Добавлено:
Juice23
по-моему, такой встроенной функции нет
поиграйся с Mid, Left, Right, Instr, InstrRev и Replace
Если есть желание возиться с Regular Expressions, то создай Object типа (не помню сейчас) который работает с VB SCript (возможно, не сможешь запихнуть в references из-за compatibility problems)
открывашь .txt как output (может input - не помню - главное прочесть)
Далее читаешь каждую строку и используешь Enter (vbCrLF) или пробел, как delimeter и загоняешь в массив (array). Далее стандартный Quick Sort и поиск Bynary Search. Если файл очень большой, то для чтения используй прием "mapping file" - чтение файла по кускам по offset от первого байта, т.е. считываешь n-е количество байтов во времнную память (объем куска зависит от RAM компьютера, я брал ~16 Kb) - kernel.dll APIs. Если интересует, пиши в ПМ и дай e-mail - вышлю file mapping sample
Поиск - если латинница, то и ASCII сойдет, если же кириллица, то с Unicode у VB6 проблемы (со знаками -, _ и т.д.. -function StrComp выдает ерунду) , надо проверить как работают string functions и, возможно, придется поискать API или сверять слово по байтам (каждый character в String Variable - это 2 байта 1-й байт - ASCII Code, второй - 0 ( Chr(0)) - это будет по-медленнее, чем встроенные VB String functions, но если есть желание - этот кусок можешь написать на C (моему боссу и такой поиск за глаза хватил)
Добавлено:
Juice23
по-моему, такой встроенной функции нет
поиграйся с Mid, Left, Right, Instr, InstrRev и Replace
Если есть желание возиться с Regular Expressions, то создай Object типа (не помню сейчас) который работает с VB SCript (возможно, не сможешь запихнуть в references из-за compatibility problems)
Можно ли как-то в васике организовать список? и вобще можно ли создать переменную типа указатель?
при помощи массива или объекта ListBox.
Переменной типа указатель в Басике создать низя, объясни идею, шо нуна???
Переменной типа указатель в Басике создать низя, объясни идею, шо нуна???
Помогите пожалуйста. Есть форма и на ней 36 кнопок с именами Button1, Button2...
Как правильно задать условия цыкла, чтобы каждой кнопке начиная с Button1 и заканчивая Button20 был присвоен например текст "hello".
Читал help, но так и не разобрался с этими коллекциями, слишком там заумно. Просто частенько нужно обработать большое колличество элементов формы, а как это сделать группой не знаю.
Помогите советом. Спасибо.
Как правильно задать условия цыкла, чтобы каждой кнопке начиная с Button1 и заканчивая Button20 был присвоен например текст "hello".
Читал help, но так и не разобрался с этими коллекциями, слишком там заумно. Просто частенько нужно обработать большое колличество элементов формы, а как это сделать группой не знаю.
Помогите советом. Спасибо.
chaugi
Вообще правильнее было создать массив кнопок, у которых разом хочется название менять, т.е. Button1(0), Button1(1) и т.д. Тогда было бы легче переьирать необходимые.
Если хочешь надпись на всех кнопках формы разом менять, то используй такой код
Код: Dim anyControl As Control
For Each anyControl In frmMain.Controls
If (TypeOf anyControl Is CommandButton) Then
anyControl.Caption = "hello"
End If
Next
Вообще правильнее было создать массив кнопок, у которых разом хочется название менять, т.е. Button1(0), Button1(1) и т.д. Тогда было бы легче переьирать необходимые.
Если хочешь надпись на всех кнопках формы разом менять, то используй такой код
Код: Dim anyControl As Control
For Each anyControl In frmMain.Controls
If (TypeOf anyControl Is CommandButton) Then
anyControl.Caption = "hello"
End If
Next
Зачем такие сложные структуры, это же Вижуал...)
У каждой кнопки есть свойство: index
установи каждой
кнопке своё значение: от 1-20
Dim I as integer
For I=1 To 20
if I= 1 then form1.button.caption(I)="НАЗВАНИЕ1"
if I= 2 then form1.button.caption(I)="НАЗВАНИЕ2"
Next I
) У каждой кнопки есть свойство: index
установи каждой
кнопке своё значение: от 1-20
Dim I as integer
For I=1 To 20
if I= 1 then form1.button.caption(I)="НАЗВАНИЕ1"
if I= 2 then form1.button.caption(I)="НАЗВАНИЕ2"
Next I
Memfivosfey
И тебе спасибо.
Troitsky
А можно насчёт масива элементов можно подробнее немножко, step-by-step, я только рад узнать что-то новое.
Как создать масив кнопок и т.д.
Спасибо.
И тебе спасибо.
Troitsky
А можно насчёт масива элементов можно подробнее немножко, step-by-step, я только рад узнать что-то новое.
Как создать масив кнопок и т.д.
Спасибо.
chaugi
Может быть замечал, что у элементов управления есть свойство Index? Вот оно и являет собой порядковый номер элемента в массиве элементов.
[more=Цитата из справки]
Цитата:
Может быть замечал, что у элементов управления есть свойство Index? Вот оно и являет собой порядковый номер элемента в массиве элементов.
[more=Цитата из справки]
Цитата:
Свойство возвращает или устанавливает число, которое однозначно определяет элемент управления в массиве элементов управления. Свойство доступно только в случае, если элемент управления является частью массива элементов управления.
Синтаксис
object[(number)].Index
Части синтаксической последовательности для свойства Index представлены в таблице:
Часть Описание
Дружище, есть обалденный форум именно по этому поводу и для твоих целей просто cool!
vbstreets.ru
или пиши мне на мыло, я преподаю VB. angy_de_Arm^mail.ru
дык, значёк ^ в мыле поменяй на собаку...
vbstreets.ru
или пиши мне на мыло, я преподаю VB. angy_de_Arm^mail.ru
дык, значёк ^ в мыле поменяй на собаку...
Подскажите, как можно реализовать такую простую задумку в VB.
Я хочу, чтобы в Excel если я ввожу какое-либо (любое) значение в ячейку А1, то у меня должны очищаться ячейки A2 и A3, если я ввожу какое-либо (любое) значение в ячейку А2, то у меня должны очищаться ячейки A1 и A3, и если я ввожу какое-либо (любое) значение в ячейку А3, то у меня должны очищаться ячейки A1 и A2. Вроде все просто, но не могу сразу понять как это сделать. Помогите, plz!
P.S. И может кто подскажет, где скачать справку к VB на РУССКОМ языке?
Я хочу, чтобы в Excel если я ввожу какое-либо (любое) значение в ячейку А1, то у меня должны очищаться ячейки A2 и A3, если я ввожу какое-либо (любое) значение в ячейку А2, то у меня должны очищаться ячейки A1 и A3, и если я ввожу какое-либо (любое) значение в ячейку А3, то у меня должны очищаться ячейки A1 и A2. Вроде все просто, но не могу сразу понять как это сделать. Помогите, plz!
P.S. И может кто подскажет, где скачать справку к VB на РУССКОМ языке?
Пожалуйста, хоть кто-нибудь, дайте Product Number и User ID, или хоть скиньте ссылочку на кряк, ато никак немогу установить Visual Basic 6.0 Professional Edition
Krav4yk
Твой вопрос к программированию никаким боком не идет.
Варез ищут в Варезнике - http://forum.ru-board.com/topic.cgi?forum=35&topic=3618
Твой вопрос к программированию никаким боком не идет.
Варез ищут в Варезнике - http://forum.ru-board.com/topic.cgi?forum=35&topic=3618
Создаю TextBox в коде на форме
Нужно сделать его мультилинейным
НА MultiLine = True ругается:
Compile error:
Can't assign to read-only property
Как можно изменить это свойство или задать его при создании?
Нужно сделать его мультилинейным
НА MultiLine = True ругается:
Compile error:
Can't assign to read-only property
Как можно изменить это свойство или задать его при создании?
Помогите пожалуйста.
нужно чтоб открылся браузер (например Internet Explorer) и в нём нужная страничка с сайта в Интернете?
нашёл такое решение
Call Shell("C:\Program Files\Internet Explorer\iexplore www.google.com", vbNormalFocus)
но что если Internet Explorer находится не здесь "C:\Program Files\Internet Explorer" ???
нужно чтоб открылся браузер (например Internet Explorer) и в нём нужная страничка с сайта в Интернете?
нашёл такое решение
Call Shell("C:\Program Files\Internet Explorer\iexplore www.google.com", vbNormalFocus)
но что если Internet Explorer находится не здесь "C:\Program Files\Internet Explorer" ???
Предыдущая тема: DrawGrid - заливка ячеек (Builder) ?
Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.