msgbox for lille

Hvis du bruger lidt api så virker det...


' ----------------------------------- Form1 -----------------------------------
Option Explicit

Private Const MB_DEFBUTTON1 As Long = &H0&
Private Const MB_DEFBUTTON2 As Long = &H100&
Private Const MB_DEFBUTTON3 As Long = &H200&

Private Const MB_ICONASTERISK    As Long = &H40&
Private Const MB_ICONEXCLAMATION As Long = &H30&
Private Const MB_ICONHAND        As Long = &H10&
Private Const MB_ICONINFORMATION As Long = MB_ICONASTERISK
Private Const MB_ICONQUESTION    As Long = &H20&
Private Const MB_ICONSTOP        As Long = MB_ICONHAND

Private Const MB_OK              As Long = &H0&
Private Const MB_OKCANCEL        As Long = &H1&
Private Const MB_YESNO            As Long = &H4&
Private Const MB_YESNOCANCEL      As Long = &H3&
Private Const MB_ABORTRETRYIGNORE As Long = &H2&
Private Const MB_RETRYCANCEL      As Long = &H5&

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Form_Load()
Dim nRet As Long
Dim strText As String

  strText = "Her skriver du så alt din tekst.."

  nRet = MessageBox(Me.hwnd, strText, App.Title, MB_OK Or MB_ICONINFORMATION)

'  nRet = MessageBox(Me.hwnd, strText, App.Title, MB_YESNOCANCEL Or MB_DEFBUTTON3 Or MB_ICONQUESTION)
'  Select Case nRet
'        Case vbOK    ' 1 OK button pressed
'        Case vbCancel ' 2 Cancel button pressed
'        Case vbAbort  ' 3 Abort button pressed
'        Case vbRetry  ' 4 Retry button pressed
'        Case vbIgnore ' 5 Ignore button pressed
'        Case vbYes    ' 6 Yes button pressed
'        Case vbNo    ' 7 No button pressed
'  End Select
End Sub
' ----------------------------------- Form1 -----------------------------------

Så står der da en del i den variabel ;-)
Ellers kan du lave din egen "lille" msgbox med en ekstra form.
Lav en ekstra form og smid en txtbox på, samt en knap. txtboxen sætter du til multiline og scrollbar vertikalt.
Istedet for at kalde en msgbox, smider du din tekst over i tekstboksen og viser formen. Altså istedet for :

msgbox strvariabel

skriver du

form2.text1.text = strvariabel
form2.show

Knap så elegant måske, men lidt kortere.

hvad så.. neeo.. nu blev det måske lidt for svært at vælge :D

jeg har smidt den i en textare lol :)
kan jeg så få nogen svar :) så i kan få nogle point

I en alm. msgbox kan der ellers stå en del tekst, det må være en større afhandling du har fyldt i den variabel.