Отправляет email-рассылки с помощью сервиса Sendsay

Программирование на Visual Basic, VB .NET и VBA

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Виртуальный офис - дома" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Март 2011   →
 1
 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
Автор
BiT

Статистика

0 подписчиков
0 за неделю
←   Все выпуски   →

Как поместить одну форму в другую?



Как поместить одну форму в другую?
2011-03-16 13:35 Александр
Как поместить одну форму в другую? Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Sub Form_Load() Form2.Show SetParent Form2.hWnd, Form1.hWnd 'выравниваем форму2 по центру Form2.Move (Form1.ScaleWidth - Form2.Width) / 2, (Form1.ScaleHeight - Form2.Height) / 2 End Sub

Определить впишется ли треугольник в окружность
2011-03-16 13:38 Александр
Определить впишется ли треугольник в окружность Dim R As Integer R = (TextBox1.Text * Sqr(3)) / 3 If TextBox2.Text > R Then Label1.Caption = "Треугольник поместится" End If If TextBox2.Text < R Then Label1.Caption = "Треугольник не поместится" End If

Определить количество значений отрицательных элементов массива
2011-03-16 13:40 Александр
Определить количество значений отрицательных элементов массива Private Sub () Dim V() As Integer Dim K As Integer Dim P As Double Dim N, i As Integer N = InputBox("Введите число элементов массива") ' i = 1 'не обязательно ReDim V(1 To N) K = 0 P = 1 ' V(i) = Int(Rnd * 100) - не здесь, так как не в цикле For i = 1 To [...]

Определить, является ли дробь периодической
2011-03-16 13:41 Александр
Определить, является ли дробь периодической Private Function RoundDigit(digit As Double) As Integer If (digit - Int(digit) > 0) Then RoundDigit = Int(digit) + 1 Else RoundDigit = Int(digit) End If End Function Private Function splitstr(ByVal str As String, ByVal lenght As Integer) As String() Dim arr() As String Dim s As String ReDim arr(RoundDigit(Len(str) / lenght) - 1) s [...]

Подсчитать число и сумму положительных элементов массива
2011-03-16 13:44 Александр
Подсчитать число и сумму положительных элементов массива dim A(4) as integer 'Объявляем массив (из пяти элементов) Dim P As Integer 'количество положительных элементов Dim O As Integer 'количество отрицательных элементов Dim Sum as Double 'сумма Dim Pr as Double 'произведение Sum = 0 Pr = 1 A(0)=0 A(1)=1 A(2)=2 A(3)=3 A(4)=4 'перебираем весь массив For i [...]

Определить день недели
2011-03-16 13:45 Александр
Определить день недели Определить день недели Private Sub Command1_Click() Dim b As Integer Dim otvet As String b = Text1.Text Select Case Combo1.ListIndex Case 0 b = (b - 1) Mod 7 otvet = Combo1.List(b) MsgBox otvet Case 1 b = (b - 0) Mod 7 otvet = [...]

Функция возвращает количество заглавных русских букв в строке
2011-03-16 13:49 Александр
Функция возвращает количество заглавных русских букв в строке Public Function GetQuantity(ByVal strText As String) As Long Dim i As Long Dim lngQuantity As Long Dim intTempCharCode As Integer lngQuantity = 0 For i = 1 To Len(strText) Step 1 [...]
В избранное