Программирование на Visual Basic любых версий

[umbra777]

не нашел thread-a про вижуал барсик.
поэтому решил запостить сюда. может кто поможет.
проблема такая - ессть приложение на visual basic 6.0 в котором есть заставка (form1),
основная форма (form2) и кнопка выхода из программы.
так вот - заставка закрывается по нажатию клавишы.
однако form1.cls не работает - форма остается открытой.
приходится делать form1.hide
так же и с основной формой - если закрывать ее программно (по нажатию кнопки, то form2.cls также не работает, тоже приходится form2.hide
от этого приложение не закрывается, а висит в списке процессов.
как полностью закрыть приложение, то есть программно закрывать, а не прятать формы?

[AlexeyVik]

Вместо hide напиши end

[Algos]

Подскажите, может у кого есть написанный на VB инженерный калькулятор. Чтобы считал элементарные функции - sin, cos, sqrt, и т.д. Или может кто-нибудь написать в короткие сроки...
Оооочень надо!

[AdmiralMK]

Dim iRow As Integer
Dim iClm As Integer

Добавлено через 1 минуту
Dim iRow As Integer
Dim iClm As Integer


FList = Application.GetOpenFilename("Excell (*.xls), *.xls", , "Open", , True)
For Each FName In FList
Application.Workbooks.Open FName
Application.ActiveWorkbook.Sheets(1).Select

Добавлено через 3 минуты
With ActiveSheet.UsedRange
iRow = .Row + .Rows.Count - 1
iClm = .Column + .Columns.Count - 1
End With

Cells(iRow + 1, 1).Value = FName

Next

[Deputy]

Цитата: Сообщение от AdmiralMK Dim iRow As Integer Dim iClm As Integer FList = Application.GetOpenFilename("Excell (*.xls), *.xls", , "Open", , True) For Each FName In FList Application.Workbooks.Open FName Application.ActiveWorkbook.Sheets(1).Select With ActiveSheet.UsedRange iRow = .Row + .Rows.Count - 1 iClm = .Column + .Columns.Count - 1 End With Cells(iRow + 1, 1).Value = FName Next

Это что? Вопрос или ответ?

[jenea]

Подскажите, плиз, как сделати exe фаил в Microsoft visual studio express 2008. В VB 6 по другому. SPS

[igorekniv]

ОПИСАНИЕ:
Имеется рабочий лист Ексель 2003. На нем отрисованы полилиниями условные знаки по геологии, в ячейках напротив указаны примечания и коды. Полилинии сгруппированы в отдельные знаки.
Другими словами знаки - это графические объекты - принадлежат коллекции Shapes.
На VB написан проект, использующий UserForm, на котором динамически формируется список CheckBox-ов, на основании данных листа Условные - примечание , коды.... Пользователь "набирает" нужный набор знаков и нажатием кнопарика "рисует" выбранные значки на активном листе книге в выделенном диапазоне. "Рисование" заключается в том, что программа копирует выбранные пользователем графические объекты с одного листа на другой. Все это отработано.
Теперь ПРОБЛЕМА: Хотелось бы напротив каждого CheckBox-а иметь графическую копию соответствующего значка прямо с раб.листа Условные. Есть стандартный контрол ImageBox, но ему для Picture на входе нужен графический GIF-файл на диске.
ВОПРОСЫ:
1. Есть ли способ вгрузить картинку в ImageBox из буфера обмена?
2. Или с помощью метода CopyPicture ?
3. Если первые два не канают, тогда можно ли и как экспортировать выбранные значки в GIF-файлы, с помощью тогоже CopyPicture?

[Dima1313]

Как вызывать АПИ функции в Visual Basic 2008 ??? ну просто кошмар какойто,немогу сам понять что с ними и где они, и немогу найти ничего,findwindow к примеру где как ее найти...?

[igorekniv]

А так нельзя ? Взято из хелпа, оператор Call Бэйсика 2003...
' Call a Microsoft Windows DLL procedure. The Declare statement must be
' Private in a Class Module, but not in a standard Module.
Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
Sub CallMyDll()
Call MessageBeep(0) ' Call Windows DLL procedure.
MessageBeep 0 ' Call again without Call keyword.
End Sub

Подключение к АПИ в зависимости от версии в зависимости от версии винды, оператор Declare
' In 32-bit Microsoft Windows systems, specify the library USER32.DLL,
' rather than USER.DLL. You can use conditional compilation to write
' code that can run on either Win32 or Win16.
#If Win32 Then
Declare Sub MessageBeep Lib "User32" (ByVal N As Long)
#Else
Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
#End If

Смотрите хелп Бэйсика 2008...

[Dima1313]

Цитата: Сообщение от igorekniv Смотрите хелп Бэйсика 2008...

попробую, а вот хелп смотрел, только чето ничего ненашол, плохо смотрел видно...

[thinkslow]

Помогите выполнить транспонирование(заменить строки ее столбцами) матрицы

[droncs]

Добрый день, помогите изменить информацию в программе, написанной на Visual Basic, пробывал декомпиляторами и загонял в Visual Basic 6, он видит почему-то только формы, компилирую в exe, все равно не работает
http://money.droncs.ru/sponsors/proekt5.rar

[Skiminok06]

подскажите как реализовать следующие.

имеется форма (form1) в нее вставлены WebBrowser и ToolStripProgressBar. подскажите как сделать чтобы при загрузке интернет страницы отображался процесс загрузки страницы?

все я нашел ответ.

Если кому интересно вот этот код.

Цитата: Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEven tArgs) Handles WebBrowser1.ProgressChanged Dim d, t As Integer ToolStripProgressBar1.Visible = True d = e.CurrentProgress t = e.MaximumProgress If d <= 0 Then ToolStripProgressBar1.Value = 0 ToolStripProgressBar1.Visible = False Else ToolStripProgressBar1.Value = Math.Min(ToolStripProgressBar1.Maximum, Convert.ToInt32(Math.Floor(ToolStripProgressBar1.M aximum * (d / t)))) End If End Sub

[droncs]

Добрый день, помогите изменить информацию в программе, написанной на Visual Basic, пробывал декомпиляторами и загонял в Visual Basic 6, он видит почему-то только формы, компилирую в exe, все равно не работает
http://money.droncs.ru/sponsors/proekt5.rar

[Arkasheg]

В общем проблема такая аж говорить стыдно

Пришла ко мне 9-класница и попросила сделать программку по собакам, например выбираешь породу собаки, выводиться на экран фотография породы и описание... всю голову себе сломал не ужели я тупее 9-класников...
Заранее благодарен