Проект "Скринсейвер" - Visual Basic .NET

  1. Можно ли с помощью бейсик создать скринсейвер?


textual

Код к задаче: «Проект "Скринсейвер" - Visual Basic .NET»

Public Class Form1
    Dim R As Single = 0
    Dim D As Integer = 10
    Dim T As Single
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Close()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim g As Graphics = Me.CreateGraphics
        Dim RandomByte(0) As Byte
        Dim Random As New Security.Cryptography.RNGCryptoServiceProvider()
        Dim I, O, H As Integer
        Random.GetBytes(RandomByte)
        I = Int(RandomByte(0) / 256 * 1280) + 1
        Random.GetBytes(RandomByte)
        O = Int(RandomByte(0) / 256 * 1024) + 1
        Random.GetBytes(RandomByte)
        H = Int(RandomByte(0) / 256 * D) + 1
        g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        g.FillEllipse(Brushes.White, I, O, H, H)
        R = R + 1
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
        Me.WindowState = FormWindowState.Maximized
        Me.TopMost = True
    End Sub
End Class

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.364 из 5



Похожие ответы
  1. Вот код контрола:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 Partial Public Class Canvas     Inherits UserControl #Region "Переменные"     Private m_BitmapImage As Bitmap     Private m_BackColor As Color #End Region #Region "Свойства"     Public Property BitmapImage() As Bitmap         Get             Return m_BitmapImage         End Get         Set(ByVal value As Bitmap)             m_BitmapImage = value         End Set     End Property     Public Overrides Property BackColor() As Color         Get             Return m_BackColor         End Get         Set(ByVal value As Color)             m_BackColor = value             Me.Invalidate()         End Set     End Property #End Region #Region "Конструктор"     Public Sub New()         InitializeComponent()         BitmapImage = New Bitmap(Me.Width, Me.Height)     End Sub #End Region     Private Sub PaintCanvas_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load         Clear()     End Sub     Public Sub Clear()         Dim br As New SolidBrush(Me.BackColor)         Using g As Graphics = Graphics.FromImage(BitmapImage)             g.FillRectangle(br, New Rectangle(Me.Location, Me.Size))         End Using         Me.Invalidate()     End Sub     Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)         MyBase.OnPaint(e)         e.Graphics.DrawImage(Me.BitmapImage, 0, 0)     End Sub     Public Sub Line(ByVal aPen As Pen, ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single)         Using g As Graphics = Graphics.FromImage(BitmapImage)             g.DrawLine(aPen, x1, y1, x2, y2)             Me.Invalidate()         End Using     End Sub End Classвот код тестовой формы:vb.net1 2 3 4 5 6 7 8 9 10 11 12 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim pen As New Pen(Color.Red, 10)         Canvas1.Line(pen, 20, 30, 250, 400)     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Canvas1.Clear()     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         Canvas1.BackColor = Color.Green     End Sub End ClassВ дизайнере устанавливаю цвет фона контрола ( BackColor) , всё ОК. Запускаю проект с контролом - цвет куда то исчезает.

  1. Всем Добрый день. У меня в проекте реализовано следующее: имеется несколько отчетов (Report1.rdlc) и несколько форм. В зависимости от выбранных значений на форме заполняется свой отчет:vb.net1 2 3 4 5 Dim Text As String Text = TextBox1.Text ' и т.д. Form2.ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Parameter1", Text)) Form2.ReportViewer1.RefreshReport() Form2.Show()' показываем форму с отчетомкаждый отчет физически привязан к ReportViewer1 (на своей форме ReportViewer - задачи - выбрать отчет). То есть получается целая куча форм. Все отлажено и все работает (никаких БД нет - все заполняется в зависимости от введенных значений, просматривается и печатается) Вопрос: можно ли сами отчеты (Report1.rdlc) сохранить отдельно от проекта, в какой-нибудь папке на диске. Будет одна форма с ReportViewer1, одна форма с вводом данных, и папка, скажем с 10 отчетами. Возможно ли это и как подключаться к этим отчетам?Добавлено через 4 часа 30 минут Возможно, я как-то не правильно объяснил суть. Сейчас у меня 8 Форм с ReportViewer - каждая привязана на свой отчет. Начиналось все с 2-х, хотел сразу сделать как-то "по-нормальному", но выхода тогда не нашел. Решил временно пользоваться так. Сейчас количество отчетов возросло, и беда в том, что нужно добавить еще 8. Плюс ко всему понадобилась возможность пользоваться этим приложением с двух компьютеров. Вот я и подумал - открыть доступ к какой-нибудь папке. В моем представлении - это должно работать так: 1. Есть установленная программа, в которой пользователь выбирает тип отчета (например ОТЧЕТ №1) 2. Программа связывается с формой этого отчета (его параметрами) и происходит заполнение в один и тот же ReportViewer Вот здесь возникает проблема - как связаться с отчетом и при помощи чего Ведь каждый отчет заполняется своими данными и они в большинстве не одинаковы. Получается нужно как-то выносить за пределы программы еще и модуль с кодом Если все это осуществить - тогда можно было бы добавить (или изменить) отчет №10 и модуль №10, отчет №11 и модуль №11 и т.д., а саму программу переписывать не надо. Если можете, помогите, ведь весь код уже написан - осталось только его как-то правильно "растусовать"...

  1. Привет! Нужно создать книжку на языке Basic. Ранее никогда их не создавала. Хотя работала с базой данных(только Access). Посоветуйте пожалуйста: 1. Какие элементы лучше использовать ?(TreeView- для колонки с разделами? RichTextBox - для вывода текста? или что попроще можно сделать? 2. Какую базу данных использовать ? (Access? можно ли как то файлы pdf там отобразить ?) Буду благодарна если какие нибудь примеры скините или посоветуете что нибудь почитать на эту тему

  1. Создаю структуру с возможностью сериализации и ее экземпляр:vb.net1 2 3 4 5     Public Structure STYLE         Dim Name1 As String         Dim Name2 As Single     End Structure     Public A1 As STYLEДалее сохраняю этот экземпляр в файл:vb.net1 2 3 4             Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()             Using stream As IO.Stream = IO.File.Open(FileName, IO.FileMode.Open)                 A1 = formatter.Deserialize(stream)             End UsingОткрываю его в этой сборке без проблем, но вот в другом проекте другое пространство имен и объект не десириализуется. Как добиться совместимости сериализованных объектов в одном приложении и другом?

  1. Здравствуйте, господа профессионалы!!! У меня вопрос: В проекте есть 30 форм (делаю игрушку для детей). Как сделать, чтобы при нажатии кнопки появлялась случайная форма. И ещё, как сделать, чтобы на форме автоматически включался англ язык???

  1. Всем доброго времени суток. Имеется программа на vb.net, достаточно объемная, но не Windows Forms, а консольная. Естественно имеются ее исходники. К сути: нужна программа, которая сможет собрать основную программу заново и тем самым изменить хэш сумму exe файла. Я пробовал различные примеры вида "Пишем компилятор vb.net", но у меня выходило очень много ошибок, которых при компиляции в VS нет. Если есть другие варианты изменить хэш сумму автоматически, то прошу мне сообщить) Заранее спасибо!

  1. Добрый день! Знаю, что банальный вопрос, но хочу писать код красиво! Есть программа и есть множество функций, которые должны выполниться и вернуть какое-то значение. Но, согласитесь, негоже как-то разбрасывать эти функции по классам форм... В итоге создал я класс, модификатор доступа Public, в него поместил функцию тоже с Public, но в итоге эта функция недоступна нигде. Создал модуль, пихнул туда функцию и она доступна даже с модификатором Friend. Теперь сам вопрос, что такое классы и модули? В чем их отличие? Какие возможности предоставляют? Как их использовать? Что в каких случаях следует использовать? Спасибо!

  1. По теме , подскажите пожалуйста как переделать под VB .NETvb.net1 2 3 4 5 6 For i = 0 To n             dt.Rows.Add(New String() {Str(x(i)})             dt.Rows.Add(New String() {Str(o(i)})             dt.Rows.Add(New String() {Str(e(i)})             dt.Rows.Add(New String() {Str(em(i)})         Next iи этоvb.net1 2 3 MyGraphic.DrawLine((z1), z2)-(z3, z4), RGB(9999, 0, 0)) MyGraphic.DrawLine (z1, z2)-(z3, z4), RGB(0, 9999, 0) MyGraphic.DrawLine(z1, z2)-(z3, z4), RGB(0, 0, 9999)Добавлено через 17 часов 0 минут Никто не подскажет ?

  1. Здравствуйте! Пишу плеер. Нашёл интересную библиотеку - LibZplay. С помощью неё можно написать неплохой плеер. К библиотеке прилагается документация по использованию и пару примеров. Инструкция по подключению выглядит так: Кликните здесь для просмотра всего текста ======================================================================= ======================================================================= How to use libZPlay with Visual Basic .NET ======================================================================= ======================================================================= 1. Add libZPlay.vb to your solution/project. Add->Existing Item... ->libZPlay.vb ======================================================================= 2. Add reference to System.Drawing if not included yet. Add Reference-> .NET ->System.Drawing ======================================================================= 3. Include libZPlay namespace into your source code Imports MyApplication.libZPlay ======================================================================= 4. Create ZPlay class. Dim player As New ZPlay() ======================================================================= 5. Open file. If player.OpenFile("test.mp3", TStreamFormat.sfAutodetect) = False Then '' error End If ======================================================================= 6. Start playing player.StartPlayback() ======================================================================= 7. At the end destroy ZPlay class (by garbage collector or manually). ======================================================================= NOTE: ======================================================================= You must distribute libzplay.dll with your application. Все эти действия я выполнил, но VStudio ругается: Кликните здесь для просмотра всего текста Warning 1 Namespace or type specified in the Imports 'MyApplication.libZPlay' doesn't contain any public member or cannot be found. Make sure the namespace or the type is defined and contains at least one public member. Make sure the imported element name doesn't use any aliases. D:\Документы [Smart]\Visual Studio 2010\Projects\AZLK-BC-14\AZLK-BC-14\Settings.vb 1 9 AZLK_BC-14 пробовал саму dll подключать в References, но он говорит, что не может быть добавлена и мне надо убедиться, что это com объект. Как заставить работать это? Скачать библиотеку можно тут: