Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 25.02.2016
Сообщений: 1

Ошибка с типами данных

25.02.2016, 07:04. Показов 1112. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Давно на бейсике не программировал, нашёл старый код и не могу понять почему не работает (P.s. написал за пару минут не ругайте, да да слепил из готового).
Visual Basic
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                (ByVal lpClassName As String, _
                ByVal lpWindowName As String) _
                As Long
                
Private Declare Function ShowWindow Lib "user32" _
                (ByVal hwnd As Long, _
                ByVal nCmdShow As Long) _
                As Long
                
Enum ShoeHide
    SH_HIDE = (0)
    SH_SHOW = (1)
End Enum
 
 
Private Function GetHwndFromCursor() As Long
  Dim p As POINTAPI, K$, j$
  K = GetCursorPos(p)
  GetHwndFromCursor = WindowFromPoint(p.X, p.Y)
End Function
 Public Function SHProg(ByVal strName As String, SH As ShoeHide)
    On Error Resume Next
 
    Dim lngBuf As Long
    
    lngBuf = FindWindow(vbNullString, strName)
    
    Call ShowWindow(lngBuf, SH)
    
End Function
 
Private Sub Timer1_Timer()
 Dim HwndControl As Long
    Dim hWndParentA As Long
    Dim hWndParent As Long
    Dim CaptionWinLen As Long
    Dim CaptionWin As String
    Dim ClassWin As String
    Dim ClassWinLen As Long
    
    HwndControl = GetHwndFromCursor
    
    hWndParent = HwndControl
    Do
        hWndParentA = hWndParent
        hWndParent = GetParent(hWndParentA)
    Loop Until hWndParent = 0
    
    CaptionWinLen = (GetWindowTextLength(hWndParentA)) + 1
    CaptionWin = String(CaptionWinLen, Chr(0))
    Call GetWindowText(hWndParentA, CaptionWin, CaptionWinLen)
    
    ClassWin = String$(32, Chr(0))
    ClassWinLen = GetClassName(hWndParentA, ClassWin, 32)
    ClassWin = Left(ClassWin, ClassWinLen)
    'Program Manager
    'NotesX
    If CStr("InqSoft Window Scanner") = CStr(CaptionWin) Then MsgBox ("ggggg") 
    
    Text1.Text = Text1.Text + vbNewLine + CaptionWin
    
  ' Form1.Caption = CaptionWin
 
End Sub
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.02.2016, 07:04
Ответы с готовыми решениями:

Как самому установить соответствие между типами API функции в MSDN и типами VB
Как самому установить соответствие между типами данных, приведенных на API функции в MSDN и типами VB ? Может , у кого имеются списки...

Помощь с типами данных.
Dopustim est' fail 'base.b' s dannimi: vanialapuhu_vani@deneg.net104540061 sashabaranprav@da.ru666666 i t.d. A v proecte...

Ошибка с типами данных
Ошибка на строке 46, а значить, выскочит и на 47,64,65. При попытке сравнить содержимое ячейки массива "м" и ячейки массива...

3
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
25.02.2016, 07:31
Цитата Сообщение от Vasgen228 Посмотреть сообщение
не могу понять почему не работает
Код работает отлично, проверил.
Миниатюры
Ошибка с типами данных  
0
Заблокирован
25.02.2016, 07:33
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Таймеру задайте ненулевой интервал, Text1.multiline=true,
и объясните вкратце - что Вы хотите от этого кода?
1
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
25.02.2016, 11:07
Visual Basic
1
Text1.Text = Text1.Text + vbNewLine + CaptionWin
может так будет лучше?
Visual Basic
1
Text1.Text = vbNewLine + CaptionWin
А то при интервале 100 просмотреть тексбокс нет возможности.
Или добавить строчку
Visual Basic
1
Text1.SelStart = Len(Text1.Text)
Для показа нижних записей
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.02.2016, 11:07
Помогаю со студенческими работами здесь

Ошибка с типами данных
var F,m,H,U:single; V,L,i:real; const q = 0.47; // g = 9.8; // begin m:=StrToFloat(txtM.text); ...

Ошибка с типами данных в подпрограмме
Не знаю, правильно ли я задал названия темы, суть проблемы следующая: Нужно было создать программу с структурой данных, в которой по...

Путаница с типами данных TCHAR и char. Какой тип данных выбрать?
Я создавал тему в соседнем разделе:https://www.cyberforum.ru/cpp-networks/thread1119035.html Насколько я понял, то POST-данные в TCHAR...

Объясните, пожалуйста в чем разница между типами-значениями и ссылочными типами?
В чем разница между типами-значениями и ссылочными типами. Привести пример типов-значений и ссылочных типов в с#. Какой пример можно...

Ошибка с типами
объявил функцию вызвал в процедуре выдает ошибку как ее исправить какой тип объявить или что подправить unit Unit1; interface ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru