Newsgroup: it.comp.lang.visual-basic
Titolo: Assegnazione a Boolean

NewsGroup.Components.Auguri = True
:-)
Bye, G.

 
Console.WriteLine("{0} for you", Client.Answers.Greeting);
Alla faccia dei nerd :P

Il 31/12/2010 14.51, Paperino ha scritto:
io sono molto più sofisticato!!!...almeno a righe di codice
in un 
vb.net
 scrivete dentro una form
Public Class Form1
     Private diff As Point
     Public Colore1 As Color
     Public Colore2 As Color
     Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As 
System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
         If e.KeyChar = "x" Or e.KeyChar = "X" Then
             Me.Close()
         End If
     End Sub
     Private Sub Form1_Load(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles Me.Load
         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
         If Colore1.IsEmpty Then
             Colore1 = Color.Goldenrod
         End If
         If Colore2.IsEmpty Then
             Colore2 = Color.Blue
         End If
     End Sub
     Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
         diff = New Point(-e.X, -e.Y)
         If e.Button = Windows.Forms.MouseButtons.Right Then
             Dim t As New Form1
             Dim p As New Random
             Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width
             Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height
             t.Left = p.Next(0, intX)
             t.Top = p.Next(0, intY)
             Dim ColorList As New ArrayList()
             ColorList.AddRange([Enum].GetNames(GetType(KnownColor)))
             Dim nome As String
             nome = ColorList(p.Next(0, ColorList.Capacity - 1))
             t.Colore1 = Color.FromName(nome)
             nome = ColorList(p.Next(0, ColorList.Capacity - 1))
             t.Colore2 = Color.FromName(nome)
             t.Show
         End If
         If e.Button = Windows.Forms.MouseButtons.Middle Then
             Me.Close()
         End If
     End Sub
     Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As 
System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
         If e.Button = MouseButtons.Left Then
             Dim mouse_loc As Point = Control.MousePosition
             mouse_loc.Offset(diff.X, diff.Y)
             Me.Location = mouse_loc
         End If
     End Sub
     Private Sub Form1_Paint(ByVal sender As Object, ByVal e As 
System.Windows.Forms.PaintEventArgs) Handles Me.Paint
         Dim BaseRectangle As New Rectangle(0, 0, Me.Width - 1, 
Me.Height - 1)
         Dim HardColor As New Color
         Dim SoftColor As New Color
         HardColor = Colore1
         SoftColor = Colore2
         Dim GradientBrush As New 
Drawing.Drawing2D.LinearGradientBrush(BaseRectangle, SoftColor, 
HardColor, 0)
         Dim g As System.Drawing.Graphics = Me.CreateGraphics()
         e.Graphics.FillRectangle(GradientBrush, BaseRectangle)
         Dim ff As New System.Drawing.Font("Verdana", 30, 
System.Drawing.FontStyle.Bold)
         e.Graphics.DrawString("BUON 2011", ff, 
System.Drawing.Brushes.White, 10, 100)
         Me.BackColor = Color.White
         Me.TransparencyKey = Color.White
     End Sub
End Class
.....non l'ho fatta tonda perchè devo iniziare a cucinare il cenone!!!
per un niubbo....se la studi perchè ci sono alcuni passaggi carini e non 
immediati!!!
BUON ANNO A TUTTI
che questo orribilissimo 2010 (almeno per me...e per gran parte 
dell'Italia) lasci il posto ad un meraviglioso 2011!
W L'ITALIA
W LA TOSCANA
W ICLVB
W ME
....E OVVIAMENTE
W LA TOPA!!!
-- 
------------------------------
Wodka40 Thunderbirizzato
Wodka si è pure facebookkizzato
http://www.facebook.com/Wodka40
In omaggio ai primi 10 amici un pullover di
lana ombellicale di "Giggi er sozzo"