Visual Basic 2008

[Admiral]

mrcnn, 11 нужно ибо Uzvern указал этот вариант в выборке (см. код по Select Case)
Debug.Print по полной работает и в этой и в предыдущих и покидать среду разработки, это удобное средство отладки, в будущих версиях языка врятле будет.
Я знаю её по 6й в более ранних я не работал, но такая возможность описана в новшествах к VB5 (http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Archive/VBInHistory/InnovationsInVB50-2.mspx), плюс есть указание, что раньше (до VB5) окно называлось Debug, так что такая возможность скорей всего была ещё с первой версии.
В коде я указал ссылку (http://msdn.microsoft.com/en-us/library/f177hahy(VS.80).aspx), которая объясняет где смотреть появление этой переменной.

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

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

[Uzvern]

Admiral, Debug.Print(i) - не пашет. Проверено! (http://slil.ru/25889478)

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

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

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

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

[Admiral]

Admiral, Debug.Print(i) - не пашет. Проверено! »
Внимание на скриншот,
http://savepic.ru/208147.gif (http://savepic.ru/218387.gif)
собственно сам оператор пашет, это есть и на видео, не пашет установка i<>10
Для решения этого момента, как писал выше использовать два генератора до 10 и после. Очевидно, что ещё первый код работал по алгоритму, а вина выборки скорей всего зарыта в недрах .NET - Тогда и два генератора не помогут. Может в .NET 3.5 SP1 возьмутся за это, может в MicroSoft клип отправить?
Как ещё один вариант, строку кода Randomize() может поместить в саму процедуру ret()?

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

Это уже немного надо знать WEB запросы, простенькие примеры такого не дают.
Simple web File download in VB.NET (http://www.vbdotnetheaven.com/UploadFile/bfarley/FileDownload04182005043858AM/FileDownload.aspx) .Net 2003
VB.NET - Code Samples - Ping,Upload and Download using vb.net vb.net 2005 (http://www.mredkj.com/vbnet/downloadfile.html)
Тем немее на них стоит посмотреть, что б разобраться на более сложном
Downloading files in .Net with all informations: progressbar, download speed, supports cancel and resume (http://www.codeproject.com/KB/vb/downloadFileswProgressbar.aspx)

Размер локального файла можно узнать так
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 (http://msdn.microsoft.com/en-us/library/abtzf6f7(VS.80).aspx)

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

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

[mrcnn]

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

[Uzvern]

Downloading files in .Net with all informations: progressbar, download speed, supports cancel and resume »
Simple web File download in VB.NET .Net 2003 »

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

[mrcnn]

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

[Uzvern]

mrcnn, все. Желательно бы показать на примере, а пример (сами проекты/прект) прилепить сюда. Как обычно делает адмирал (только он полностью расписаный код сюда выкладывает, а тут желательно прект) за что ему отдельное СПАСИБО!

с чего вы решили что 10-ка не отлавливается? »
Качаем и смотрим вложение данного поста. (http://forum.oszone.net/post-824106-122.html)

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

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

Как можно исправить это : "это" нахoдится тут (Сама программа и используемая картинка) (http://slil.ru/25891636) (что-то с прозрачностью формы)
http://i30.tinypic.com/29m96e0.jpg
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Color = System.Drawing.Color.Magenta
Me.BackColor = i
Me.TransparencyKey = i
End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End
End Sub
End Class

[Admiral]

ОффТоп=>mrcnn, нет так и суда нет :happy: . Не буду, линки по этому поводу есть уже в теме.
Я честно прогнал до подтормаживания приложения ту кнопки, перед тем как давать код и десятка не встречалась. С видео, предоставленного Uzvern, спорить не собираюсь, тем более там так красочно выражается это окно, что трудно не заметить. :biggrin:
Свою догадку, о причинах сего поведения, я уже высказал. А собственно чему удивляться, если в языке запланировано одно, а в реализации могут ошибаться. В соседней теме по С ( http://forum.oszone.net/thread-108817.html), чётко компилятор халтурит. Так у Сишников есть широкий выбор, а для Visual Basic - microsoft является монополистом. Есть реализации от других компаний, но они не настолько известны. Выбор есть только между разными версиями:VB1-6 и VB.NET2002-2008).
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й в полном сборе: по ссылке ( http://www.codeproject.com/KB/vb/downloadFileswProgressbar.aspx) и проект ( http://www.codeproject.com/KB/vb/downloadFileswProgressbar/SimpleDownloadFile_Source.zip), и собранный вариант ( http://www.codeproject.com/KB/vb/downloadFileswProgressbar/SimpleDownloadFile_Demo.zip) и код на странице указан, ещё с комментариями и объяснениями. Так что экспериментировать...

[Uzvern]

А что на счет примеров с проектом :happy:

Код с прозрачностью не пашет! Все осталось как и было (фиолетовая обводка)
Public Class Form1

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
End
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = System.Drawing.Color.Magenta
Me.TransparencyKey = Me.BackColor
Dim Img As Bitmap = Bitmap.FromFile("1.png")
Me.BackgroundImage = Img
End Sub
End Class
Результат такой же как и в 127 (http://forum.oszone.net/post-824667-127.html) посте

[Admiral]

ОффТоп=>Что б написать качалку такого плана (с указанными требованиями) нужно потратить много времени, а намного быстрее будет пройти у них регистрацию, что б скачать указанный пример.
А насчёт небольшого, NET2003 примера, то модуль я закрепил (http://forum.oszone.net/attachment.php?attachmentid=12331&stc=1&d=1213348961). Не сложно будет разобраться – нужно создать консольный проект и занести прикреплённый модуль отсюда. На сайте действительно была ошибка, они с ASP.NET один запрос WebRequestFactory взяли , что в VB.NET отсутствует, он просто краткий - WebRequest. Более подробно про сам объект HttpWebRequest..::.Connection Property (http://msdn.microsoft.com/en-us/library/system.net.httpwebrequest.connection.aspx)
Конечно же он будет фиолетовым, в коде вед чётко указанно
Me.BackColor = System.Drawing.Color.Magenta >> (http://forum.oszone.net/post-824932.html#post824932)
а я в коде чётко написал первой строчкой
Me.TransparencyKey = Me.BackColor>> (http://forum.oszone.net/post-824892.html#post824892)
и всё с палитрой после этого. Внимательность и ничего больше. Зачем Me.BackColor что-то указывать? Достаточно трёх строчек с предыдущего поста.
http://savepic.ru/209196.gif (http://savepic.ru/199980.gif)

[Uzvern]

пройти у них регистрацию, что б скачать указанный пример »
Скачать - скачал, а как его в проект запихать незнаю :(

[Uzvern]

Понял как можно избавится от Chr(10) и тому подобной не нужной "гадости"
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.Text = ""
If TextBox1.Text <> "" And IsNumeric(TextBox1.Text) = True Then
TextBox1.Text = Int(TextBox1.Text)
For v As Integer = 1 To TextBox1.Text
nachalo:
Dim i As Integer
i = Int(Rnd() * 190 + 1)
Select Case i
Case 1 To 8 REM ну тут все как обычно
RichTextBox1.Text = RichTextBox1.Text & Chr(i)
Case 14 To 190 REM и тут
RichTextBox1.Text = RichTextBox1.Text & Chr(i)
'Решение
Case Else
RichTextBox1.Text = RichTextBox1.Text & ""
Do Until RichTextBox1.Text.Length = TextBox1.Text
Debug.Print(i)
GoTo nachalo
'/Решение
Loop
End Select
Next v
Me.Text = RichTextBox1.Text.Length
Else
MsgBox("Вы не ввели значение, либо значение не является числом.", MsgBoxStyle.Critical, "Введите значение!")
End If
End Sub
End Class

[Uzvern]

Как-то можно запустить VB , чтобы сразу же появлялось окно с выбором нужного пректа, возможно с каким-то параметром или как-то по другому.
http://img169.imageshack.us/img169/7994/68475058av7.th.jpg (http://img169.imageshack.us/img169/7994/68475058av7.jpg)

[Admiral]

Да можно. Загрузка последнего загруженного проекта настраивается так
Tools - > Options... -> Startup - > At startup: -> Load Last loaded solution

[Uzvern]

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

[Admiral]

Тот же путь только последний пункт Show New Project dialog box
Информация по другим пунктам доступна в статье Startup, Environment, Options Dialog Box (http://msdn.microsoft.com/en-us/library/ms165469.aspx)

[Uzvern]

Как вывести полный список файлов и папок, находящихся в указаной папке/системном диске/съемном носителе?!
И как можно отследить подключение съемного диска.

[Admiral]

List of all files and folders on drive (http://www.tek-tips.com/viewthread.cfm?qid=1083124&page=1)
How to detect Insertion/Removal of a USB device (http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=948315&SiteID=1)

[Uzvern]

Убрал глюк с NotifyIcon и ContextMenuStrip.
Оказывается, надо было в свойствах NotifyIcon указать нужный ContextMenuStrip и прописать его вызов в код.

Dim MD As Boolean = False

Private Sub NotifyIcon1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDown
If MouseButtons = Windows.Forms.MouseButtons.Right Then
MD = True
Else
MD = False
End If
End Sub

Private Sub NotifyIcon1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseUp
If MD = True Then
NotifyIcon1.ContextMenuStrip.Show()
MD = False
Else
MD = False
End If
End Sub

[Uzvern]

Можно показать на примере цикл For Each, на каком-нмбудь понятном примере. просто пробовал разобраться - бестолку. :(

Кстати, для авторизации на сайте/форуме, нашел код :
WebBrowser1.Navigate("//forum.oszone.net/index.php")


Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
WebBrowser1.Document.GetElementById("vb_login_username").InnerText = "ЛОГИН"
WebBrowser1.Document.GetElementById("vb_login_password").InnerText = "ПАРОЛЬ"

Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
For Each curElement As HtmlElement In theElementCollection
If curElement.GetAttribute("value").Equals("Войти") Then
curElement.InvokeMember("click")
End If
Next
End Sub

За код спасибо http://bbs.vbstreets.ru/