Visual Basic Хелоу Уърлд

от Всичко за 1 лев, свободната енциклопедия

Версия от 10:25, 30 ное 2005 EfrLuk (Беседа | приноси) ← Go to previous diff		Версия от 10:26, 30 ное 2005 EfrLuk (Беседа | приноси) Go to next diff →
Ред 1:		Ред 1:
-	Внимание ОПАСНО. Не пробвайте това в къщо. Visual Basic предизвиква трайни увреждания на мозъка!!!.	+	Внимание ОПАСНО. Не пробвайте това в къщи. Visual Basic предизвиква трайни увреждания на мозъка!!!.
	== Вариант 1 ==		== Вариант 1 ==

---

Версия от 10:26, 30 ное 2005

Внимание ОПАСНО. Не пробвайте това в къщи. Visual Basic предизвиква трайни увреждания на мозъка!!!.

Вариант 1

Private Sub cmdClear_Click()
   txtHello.Text = ""
End Sub

Private Sub cmdExit_Click()
   End
End Sub

Private Sub cmdHello_Click()
   txtHello.Text = "Hello World!"
   With txtHello
       .Font = "Arial"
       .FontSize = 16
       .ForeColor = vbBlue
   End With
End Sub

Вариант 2

VERSION 2.00
Begin Form Form1 
  Caption         =   "Hello World!"
  ClientHeight    =   540
  ClientLeft      =   1095
  ClientTop       =   1515
  ClientWidth     =   2445
  Height          =   945
  Left            =   1035
  LinkTopic       =   "Form1"
  ScaleHeight     =   540
  ScaleWidth      =   2445
  Top             =   1170
  Width           =   2565
  Begin Label Label1 
     Alignment       =   2  'Center
     Caption         =   "Hello World!"
     FontBold        =   -1  'True
     FontItalic      =   0   'False
     FontName        =   "Arial"
     FontSize        =   12
     FontStrikethru  =   0   'False
     FontUnderline   =   0   'False
     Height          =   255
     Left            =   120
     TabIndex        =   0
     Top             =   120
     Width           =   2175
  End
End

Вариант 3

Private Sub FOrm_Load()
  Static I
  I = 1
  for I = 1 to 10
    msgbox "Hello World"
  Next I
end sub