VBA - Visual Basic 2008

Admiral · Сообщение **Admiral** » 03 июн 2008, 20:38

CStr Function

Функция CStr

Uzvern · Сообщение **Uzvern** » 03 июн 2008, 22:46

Сорри. Затупил

Uzvern · Сообщение **Uzvern** » 08 июн 2008, 19:23

Цитата Uzvern:

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

VBA - Visual Basic 2008

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

собственно сам оператор пашет, это есть и на видео, не пашет установка i10

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

Как ещё один вариант, строку кода Randomize() может поместить в саму процедуру ret()?

Цитата Uzvern:

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

VBA - Visual Basic 2008

Или

Цитата Uzvern:

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

VBA - Visual Basic 2008

Это уже немного надо знать 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 · Сообщение **mrcnn** » 08 июн 2008, 19:23

Аж четыре кавычки. Нормально реализовать изобреаттелям языка было видимо лень. Лучше бы в виде эскейп последовательностей сделали а не в виде какой-то фигни. Эскейп-последовательности гораздо важнее подсветки синтаксиса и синтаксической проверки на лету. В бейсике все через ж. Лучше на асме писать, чем на бейсике. Там хоть и муторно, но нет таких дбл конструкций как в бейсике и компиляторы нормальная и среда, которая не делает дбл почерки и подчерки. .

Второй способ вставить кавычку Chr(34) этот способ предпочтительнее

Третий способ использовать хак: (replace(string,"'","''"))

Четвертый способ:

Подключить регулярные выражения

Imports System.Text.RegularExpressions

Regex.Escape("\"")

Admiral · Сообщение **Admiral** » 08 июн 2008, 19:57

Цитата Admiral:

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

VBA - Visual Basic 2008

Цитата Admiral:

Simple web File download in VB.NET .Net 2003

VBA - Visual Basic 2008

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

Uzvern · Сообщение **Uzvern** » 09 июн 2008, 19:53

Помогите плз. Вообщем необходимо вывести сообщение с первой буквой из каждой строки.

Код:

Код: Выделить всё

Public Class Form1
    Dim i1 As String
    Dim i2 As Long = -1
    Dim i3 As String
    Dim i4 As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        i1 = RichTextBox1.Text
        Do Until i2 = RichTextBox1.Lines.Length
            i2 = i2 + 1
            i3 = RichTextBox1.Lines(i2).Substring(0, 1)
            i4 = i3 & Chr(13)
        Loop
        MsgBox(i4)
    End Sub
End Class

Не могу понять почему не хочет. + Со списком жестких дисков такое же.

Код:

Код: Выделить всё

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim h As Integer = -1
        Do Until h = My.Computer.FileSystem.Drives.Count
            h = h + 1
            RichTextBox1.Text = RichTextBox1.Text & My.Computer.FileSystem.Drives(h).Name
        Loop
    End Sub
End Class

Admiral · Сообщение **Admiral** » 09 июн 2008, 19:53

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

(только он полностью расписаный код сюда выкладывает, а тут желательно прект)

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

Цитата mrcnn:

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

VBA - Visual Basic 2008

Цитата Admiral:

собственно сам оператор пашет, это есть и на видео, не пашет установка i10

VBA - Visual Basic 2008

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

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

Как можно исправить это : "это" нахoдится

тут (Сама программа и используемая картинка)

(что-то с прозрачностью формы)

Код:

Код: Выделить всё

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

Uzvern · Сообщение **Uzvern** » 09 июн 2008, 23:21

ОффТоп=>

mrcnn, нет так и суда нет . Не буду, линки по этому поводу есть уже в теме.

Я честно прогнал до подтормаживания приложения ту кнопки, перед тем как давать код и десятка не встречалась. С видео, предоставленного Uzvern, спорить не собираюсь, тем более там так красочно выражается это окно, что трудно не заметить.

Свою догадку, о причинах сего поведения, я уже высказал. А собственно чему удивляться, если в языке запланировано одно, а в реализации могут ошибаться. В
C/C++ - Я хочу запретить ввод букв. Как это сделать?
, чётко компилятор халтурит. Так у Сишников есть широкий выбор, а для 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[/i]

(я уже видел вопрос перед этим, просто забыл отписаться по этому поводу)

Согласен, что консольный .NET2003 проект немного запутан, ну а 2008й в полном сборе: по

ссылке

и

проект

, и

собранный вариант

и код на странице указан, ещё с комментариями и объяснениями. Так что экспериментировать...

Uzvern · Сообщение **Uzvern** » 10 июн 2008, 11:09

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

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

Код:

Код: Выделить всё

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

Результат такой же как и в

VBA - Visual Basic 2008

посте

Admiral · Сообщение **Admiral** » 10 июн 2008, 11:09

ОффТоп=>

Что б написать качалку такого плана (с указанными требованиями) нужно потратить много времени, а намного быстрее будет пройти у них регистрацию, что б скачать указанный пример.

А насчёт небольшого, NET2003 примера, то модуль я

закрепил

. Не сложно будет разобраться – нужно создать консольный проект и занести прикреплённый модуль отсюда. На сайте действительно была ошибка, они с ASP.NET один запрос WebRequestFactory взяли , что в VB.NET отсутствует, он просто краткий - WebRequest. Более подробно про сам объект

HttpWebRequest..::.Connection Property

Конечно же он будет фиолетовым, в коде вед чётко указанно

Цитата Uzvern:

Me.BackColor = System.Drawing.Color.Magenta

VBA - Visual Basic 2008

а я в коде чётко написал первой строчкой

Цитата Admiral:

Me.TransparencyKey = Me.BackColor

VBA - Visual Basic 2008

и всё с палитрой после этого. Внимательность и ничего больше. Зачем Me.BackColor что-то указывать? Достаточно трёх строчек с предыдущего поста.

VBA - Visual Basic 2008

Re: VBA - Visual Basic 2008

Re: VBA - Visual Basic 2008

Re: VBA - Visual Basic 2008

Re: VBA - Visual Basic 2008

Re: VBA - Visual Basic 2008

Re: VBA - Visual Basic 2008

Re: VBA - Visual Basic 2008

Re: VBA - Visual Basic 2008

Re: VBA - Visual Basic 2008

Re: VBA - Visual Basic 2008