I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
nå ved ikke om det virker, da denne måde ikke virker under Win2K som jeg kører lige nu;
Dim ICQ_handle As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Click() Dim r As Long r = BringWindowToTop(ICQ_handle) End Sub
Private Sub Form_Load() ICQ_handle = FindWindow(vbNullString, "ICQMsgAPI Window") End Sub
du kan se det under mit brugernavn men hvis du er doven er det;
31877865
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.