Точка входа в процедуру не найдена

[keks-n]

Вот, полюбуйтесь, что выдаёт моя прога на чужом компе.

Никаких внешних компонентов не используется, на том компе VB установлен, в проекте явно из библиотеки kernell32.dll объявлена только функция Sleep.
У меня всё работает нормально.
Кто виноват и что делать?

[Viper]

Ну и чего тебе ответить? Картинка просто таки замечательная! Дюже понятная.

Код в студию, телепаты в отпуске!

[keks-n]

Гм, сделал borderstyle=fixed dialog и заработало... Бред какой-то...

[keks-n]

Опять не фурычит

а код такой:

Код: Выделить всё


Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim OKPressed As Boolean

Private Sub cmdOK_Click()
OKPressed = True
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Text1_Change()
If Len(Text1.Text) > 0 Then cmdOK.Enabled = True Else cmdOK.Enabled = False
End Sub

Friend Function GetName() As String
Me.Show
Do
Sleep 1
DoEvents
If OKPressed Then Exit Do
Loop
GetName = Text1.Text
Unload Me
End Function


На форме лейбл, текстбокс и кнопка.

Ошибка похоже при вызове GetName из другой формы. Что не так - ума не приложу...

[Kovu]

Попробуй объявить GetName() как Public или вызывать её

Код: Выделить всё

Form1.GetName


[keks-n]

Тоже самое.

З.Ы. Если компилить код у чела на компе, то работает у него, но не работает у меня

[Kovu]

Просто у тебя плохая карма ©
А вообще :
КОД В СТУДИЮ!!!

[keks-n]

Заново сделал форму, вставил тот-же код и заработало