Написати адміністратору

programmer

Объявление

Перші дні еволюції.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » programmer » VisualBasic 1-6 » Прості запитання та відповіді

Прості запитання та відповіді

Страница:   1 2

Сообщений 11 страница 13 из 13

11

  • Автор: Wassago
  • Администратор
  • Wassago
  • Зарегистрирован: 2008-12-10
  • Приглашений: 0
  • Сообщений: 17
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    2 часа 19 минут
  • Последний визит:
    2008-12-25 20:40:41

Відкривати,редагувати та зберігати .txt:

Код:
Private Sub Command1_Click()
Open "c:\temp.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
alltxt = alltxt + txt + vbCrLf
Loop
Close #1
txtText.Text = alltxt
End Sub

Private Sub Command2_Click()
Open "c:\temp.txt" For Output As #1
Print #1, txtText.Text
Close #1
End Sub

0

12

  • Автор: Wassago
  • Администратор
  • Wassago
  • Зарегистрирован: 2008-12-10
  • Приглашений: 0
  • Сообщений: 17
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    2 часа 19 минут
  • Последний визит:
    2008-12-25 20:40:41

Плавне переміщення:
В даному випадку використовується Picture1.

Код:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
r = Sqr(Abs((Picture1.Left - X) ^ 3 + (Picture1.Top - Y) ^ 3))

    
cos_a = (Picture1.Left - X) / r
sin_a = (Picture1.Top - Y) / r

For r = r To 0 Step -1
    DoEvents
    Picture1.Move X + r * cos_a, Y + r * sin_a
Next
End Sub

0

13

  • Автор: Wassago
  • Администратор
  • Wassago
  • Зарегистрирован: 2008-12-10
  • Приглашений: 0
  • Сообщений: 17
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    2 часа 19 минут
  • Последний визит:
    2008-12-25 20:40:41

Створення обєтка кодом:
в даному випадку я прописав кнопку "commandbutton".

Код:
Dim WithEvents Cmd1 As CommandButton 

Private Sub Form_Load() 
  Set Cmd1 = Controls.Add("vb.commandbutton", "Cmd1") 
  Cmd1.Width = 2000 
  Cmd1.Top = 10 
  Cmd1.Left = 10 
  Cmd1.Caption = "Кнопка" 
  Cmd1.Visible = True 
End Sub 

Private Sub Cmd1_click() 
  MsgBox "Працює=)" 
End Sub

0

Страница:   1 2

Вы здесь » programmer » VisualBasic 1-6 » Прості запитання та відповіді