Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1222170 Wed, 16 Aug 2006 10:29:50 +0000 Уникальный идентификатор https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1222170 Должен быть, ведь если на компе введенном в домен переустановить систему то в домен его не пускает пока заново вручную не введешь.]]> Pantalone Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1207697 Mon, 07 Aug 2006 13:37:02 +0000 Уникальный идентификатор https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1207697 firelex
UuidToString
Есть такая функция;)]]> ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1200158 Tue, 01 Aug 2006 20:08:51 +0000 Уникальный идентификатор https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1200158 Цитата
Static i as Long

Вот это мысль дельная...

Мелкософт в этом отношении лаконичностью не отличился

    Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
    End Type
     
    Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As
    Long
     
    Public Function GetGUID() As String
    '(c) 2000 Gus Molina
     
    Dim udtGUID As GUID
     
    If (CoCreateGuid(udtGUID) = 0) Then
     
    GetGUID = _
    String(8 - Len(Hex$(udtGUID.Data1)), "0") & Hex$(udtGUID.Data1) & _
    String(4 - Len(Hex$(udtGUID.Data2)), "0") & Hex$(udtGUID.Data2) & _
    String(4 - Len(Hex$(udtGUID.Data3)), "0") & Hex$(udtGUID.Data3) & _
    IIf((udtGUID.Data4(0) < &H10), "0", "") & Hex$(udtGUID.Data4(0)) & _
    IIf((udtGUID.Data4(1) < &H10), "0", "") & Hex$(udtGUID.Data4(1)) & _
    IIf((udtGUID.Data4(2) < &H10), "0", "") & Hex$(udtGUID.Data4(2)) & _
    IIf((udtGUID.Data4(3) < &H10), "0", "") & Hex$(udtGUID.Data4(3)) & _
    IIf((udtGUID.Data4(4) < &H10), "0", "") & Hex$(udtGUID.Data4(4)) & _
    IIf((udtGUID.Data4(5) < &H10), "0", "") & Hex$(udtGUID.Data4(5)) & _
    IIf((udtGUID.Data4(6) < &H10), "0", "") & Hex$(udtGUID.Data4(6)) & _
    IIf((udtGUID.Data4(7) < &H10), "0", "") & Hex$(udtGUID.Data4(7))
    End If
     
    End Function
]]> firelex Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1200141 Tue, 01 Aug 2006 19:38:54 +0000 Уникальный идентификатор https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1200141 2. да вот hWnd
3.
как это не известно сколько имеется ?
кто программу пишет ? должен знать.

    Function GetUniqueName(ByVal sControlClass as String) As String
        Static i as Long
        i = i + 1
        GetUniqueName = sControlClass & CSTR(i)
    End Function


ну или переменная видимости модуля.]]> nash Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1200098 Tue, 01 Aug 2006 18:51:40 +0000 Уникальный идентификатор https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1200098
Могу предложить использовать hWnd кнопок.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1200088 Tue, 01 Aug 2006 18:46:27 +0000 Уникальный идентификатор https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1200088 ...:::Alex:::... Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1200084 Tue, 01 Aug 2006 18:44:58 +0000 Уникальный идентификатор https://forum.sources.ru/index.php?showtopic=150095&view=findpost&p=1200084
Где-то слышал что винда может генерировать уникальные идентификаторы 16-24 знака. Т.е. в любой момент времени эта функция будет выдавать разные значения.
У меня проблема - создаю динамически кнопки и надо идентификатор уникальный. Вариант "Button1", "Button2", ... не подходит т.к. неизвестно сколько кнопок на данный момент уже имеется.]]> firelex Visual Basic: Общие вопросы