VBA

Admiral · Отправлено: **22:33, 11-06-2008** | #**121**

mrcnn, 11 нужно ибо Uzvern указал этот вариант в выборке (см. код по Select Case)
Debug.Print по полной работает и в этой и в предыдущих и покидать среду разработки, это удобное средство отладки, в будущих версиях языка врятле будет.
Я знаю её по 6й в более ранних я не работал, но такая возможность описана в новшествах к VB5, плюс есть указание, что раньше (до VB5) окно называлось Debug, так что такая возможность скорей всего была ещё с первой версии.
В коде я указал ссылку, которая объясняет где смотреть появление этой переменной.

Uzvern, перед тем как отправлять код, я пару раз прогнал его и 10ка мне ни разу не выскочила (не напечаталась по Debug.Print в Immediate Window). Раз такое дело, то самым радикальным шагом будет использовать два генератора: до 10ки и после, что б даже не происходило её случайная генерация.

Код сейчас посмотрю, отпишусь через редактирование.

Uzvern · Конфигурация компьютера

Admiral, Debug.Print(i) - не пашет. Проверено!

Как организовать поиск определенного файла на компе? Например, "1.txt" - мне нужно узнать где он лежит.

Как предварительно получить размер файла скачиваемого из интернета и в добавок ( как получить размер файла находящегося на компьютере ) и как можно остановить/прервать скачивание?

Как отследить нажатие клавиши/клавишь, если программа находится в свернутом состоянии?

Во я вам работы привалил

Admiral · Отправлено: **02:36, 12-06-2008** | #**123**

Цитата Uzvern:

Admiral, Debug.Print(i) - не пашет. Проверено! »

Внимание на скриншот,

собственно сам оператор пашет, это есть и на видео, не пашет установка i<>10
Для решения этого момента, как писал выше использовать два генератора до 10 и после. Очевидно, что ещё первый код работал по алгоритму, а вина выборки скорей всего зарыта в недрах .NET - Тогда и два генератора не помогут. Может в .NET 3.5 SP1 возьмутся за это, может в MicroSoft клип отправить?
Как ещё один вариант, строку кода Randomize() может поместить в саму процедуру ret()?

Цитата Uzvern:

Как организовать поиск определенного файла на компе? Например, "1.txt" - мне нужно узнать где он лежит. »

Или

Цитата Uzvern:

Как сделать поиск определенного файла? »

Ответ

Это уже немного надо знать WEB запросы, простенькие примеры такого не дают.
Simple web File download in VB.NET .Net 2003
VB.NET - Code Samples - Ping,Upload and Download using vb.net vb.net 2005
Тем немее на них стоит посмотреть, что б разобраться на более сложном
Downloading files in .Net with all informations: progressbar, download speed, supports cancel and resume

Размер локального файла можно узнать так

Код:

Dim information As System.IO.FileInfo
information = My.Computer.FileSystem.GetFileInfo("C:\Boot.ini")
MsgBox(information.Length)

ответ в байтах.
How to: Get Information About a File in Visual Basic

Что ж нету в .NET хука на все случаи жизни. Так что для поимки нажатий клавишей его придётся писать.
Managing Low-Level Keyboard Hooks in VB .NET
Однако, софт подобного типа (отловить, подменить из бекграунда) стоит писать на C\C++ (возможно на Delphi), в крайнем случаи на C#.

Как видно роботы оказалось не много, а вопрос по поиску файлов уже встречался.

mrcnn · Отправлено: **07:59, 12-06-2008** | #**124**

Цитата:

Debug.Print по полной работает и в этой и в предыдущих и покидать среду разработки, это удобное средство отладки, в будущих версиях языка врятле будет.

Нету такого метода Print. Ссылки на мсдн не надо.
10-ка там не выскакивает, я прогонял в отладчике, она появляется только в цикле.
10 и 9 отлавливаются.
с чего вы решили что 10-ка не отлавливается?

Uzvern · Конфигурация компьютера

Цитата Admiral:

Downloading files in .Net with all informations: progressbar, download speed, supports cancel and resume »

Цитата Admiral:

Simple web File download in VB.NET .Net 2003 »

Как обычно, ничего толком поять не смог. Можно на примере ?

mrcnn · Отправлено: **18:05, 12-06-2008** | #**126**

Что именно не получается припаять к тем примерам?

Uzvern · Конфигурация компьютера

mrcnn, все. Желательно бы показать на примере, а пример (сами проекты/прект) прилепить сюда. Как обычно делает адмирал

за что ему отдельное СПАСИБО!

Цитата mrcnn:

с чего вы решили что 10-ка не отлавливается? »

Качаем и смотрим вложение данного поста.

Цитата Admiral:

собственно сам оператор пашет, это есть и на видео, не пашет установка i<>10 »

Сорри. Не так выразился. Я имел ввиду : ...ео, не пашет установка i<>10...

Как сделать, чтобы программа была поверх всех окон оО

Как можно исправить это : "это" нахoдится тут (Сама программа и используемая картинка) (что-то с прозрачностью формы)

Admiral · Отправлено: **05:01, 13-06-2008** | #**128**

ОффТоп=>

Uzvern, а зачем отдельный контрол для изображения (это я про PictureBox)?
Как один из вариантов, корректно отображающих прозрачность

Код:

        Me.TransparencyKey = Me.BackColor
        Dim Img As Bitmap = Bitmap.FromFile("Используемое изображение.png")
        Me.BackgroundImage = Img

System.Drawing.Color.Magenta – это цвет "прозрачности", то есть в ресурсах им раскрашивают невидимые области, для достижения прикольного эффекта. На его месте может быть любой другой, выбранный художником-кодером из вариантов от VB2008, а если этим не заморачиватся то главное что б Me.TransparencyKey = Me.BackColor
Кстати глюк имеет место http://support.microsoft.com/kb/822495 но как видно в ракурсе не отображения при цветности больше 24, то есть для альфа канала.
Окна поверх всех будет так Me.TopMost = True
(я уже видел вопрос перед этим, просто забыл отписаться по этому поводу)

Согласен, что консольный .NET2003 проект немного запутан, ну а 2008й в полном сборе: по ссылке и проект, и собранный вариант и код на странице указан, ещё с комментариями и объяснениями. Так что экспериментировать...