функции API

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
td
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 08.04.2003 (Вт) 19:34

функции API

Сообщение td » 13.04.2003 (Вс) 0:34

я использую функции апи дляработы с ини-файлами, а у меня пишутся ошибки... Нужны ли какие-то служебные слова, что это апи или что-то в этом роде?

goro
Постоялец
Постоялец
 
Сообщения: 494
Зарегистрирован: 03.12.2002 (Вт) 11:45
Откуда: Украина, Запорожье

Re: функции API

Сообщение goro » 13.04.2003 (Вс) 11:21

td писал(а):я использую функции апи дляработы с ини-файлами, а у меня пишутся ошибки... Нужны ли какие-то служебные слова, что это апи или что-то в этом роде?

Напиши поподробнее, какая ошибка, какие ты функции используешь и как?
ПРЕВЕД

td
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 08.04.2003 (Вт) 19:34

Сообщение td » 13.04.2003 (Вс) 12:14

вот.. в каком-то примере было
у меня спотыкается сразу же на апи

Public Function GetValueInteger(strSection As String, strKey As String, strFile As String) As Integer
'Данная функция возвращает целочисленное значение из ini-файла. Где имя секции – strSection, имя ключа – strKey и strFile – полный путь к ini-файлу.

Dim intValue As Integer

On Error GoTo PROC_ERR
intValue = GetPrivateProfileInt(strSection, strKey, 0, strFile)
GetValueInteger = intValue
PROC_EXIT:
Exit Function

PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "GetValueInteger"

Resume PROC_EXIT

End Function

Public Function GetValueString(strSection As String, strKey As String, strFile As String) As String
'Данная функция возвращает строковое значение из ini-файла. Где имя секции – strSection, имя ключа – strKey и strFile – полный путь к ini-файлу.

Dim strBuffer As String * 256
Dim intSize As Integer

On Error GoTo PROC_ERR
intSize = GetPrivateProfileString(strSection, strKey, "", strBuffer, 256, strFile)
GetValueString = Left$(strBuffer, intSize)

PROC_EXIT:
Exit Function

PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "GetValueString"

Resume PROC_EXIT
End Function

goro
Постоялец
Постоялец
 
Сообщения: 494
Зарегистрирован: 03.12.2002 (Вт) 11:45
Откуда: Украина, Запорожье

Сообщение goro » 13.04.2003 (Вс) 12:44

А ты обьявлял?
Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
ПРЕВЕД

Хой
Не математик
Не математик
 
Сообщения: 541
Зарегистрирован: 26.08.2002 (Пн) 0:21
Откуда: Россия

Сообщение Хой » 13.04.2003 (Вс) 12:48

Если ты обьявляешь АПИ в форме, тогла замени Public Function на Private Function

td
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 08.04.2003 (Вт) 19:34

Сообщение td » 13.04.2003 (Вс) 13:01

[quote="goro"]А ты обьявлял?

нет.. а в каком месте это надо? Вверху просто? :oops:

goro
Постоялец
Постоялец
 
Сообщения: 494
Зарегистрирован: 03.12.2002 (Вт) 11:45
Откуда: Украина, Запорожье

Сообщение goro » 13.04.2003 (Вс) 13:17

td писал(а):А ты обьявлял?

нет.. а в каком месте это надо? Вверху просто? :oops:

угу в самом верху и замени как сказал Хой.
ПРЕВЕД


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: SemrushBot и гости: 3

    TopList  
cron