Ну где ты, народ?

Да кстати: Забыл поздороваться>Здрасьте все!

Дополнения: 2) Относится и к другим Win портам(135-139), а мож ещё чё знаете?

Ну как форму прозрачной-то сделать, неужто не знает никто?

Народ, помоги плиз!

'

'

'

И ещё, подскажи коли не жалко, как вы картинки в ответы кидаете?

Ответить

'Api функции

'Функция определяет стиль окна
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
'Функция задаёт стиль окна
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'Функция делает окно прозрачным
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, _
ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
'Константы
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H3
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000

Public Enum eType
  a1 = 1
  Ax = 99
End Enum
Public Type tQ
  nQ As Long
  TypeQ As eType
  nRA As Integer
  nA(100) As Boolean
  nAC As Integer
End Type
Public Q As tQ
Public Enum eCodeType
  ctNone = 0
  ctASCII10 = 1
  ctASCII16 = 2
End Enum
Public Type tTest
  sTheme As String
  sAutor As String
  nNumOfQuestions As Long
  CodeType As eCodeType
  sPath As String
  DontHelp As Boolean
End Type
Public test As tTest
Public bTestLoaded As Boolean
Public LastPath As String
Public nCorrectly As Long
Public HelpEn As Boolean
Public Win2k As Boolean
Public bDontHelp As Boolean

Public IsNT As Boolean

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
Private Const VER_PLATFORM_WIN32_NT = 2

Public Function ClearMemory()
  test.sPath = ""
  test.CodeType = ctNone
  test.nNumOfQuestions = 0
  test.sTheme = "None"
  test.sAutor = ""
  nCorrectly = 0
  frmBase.Org.Text = ""
  frmBase.Dbl.Text = ""
  bTestLoaded = False
End Function

Public Function LoadBase(sBasePath As String) As Integer
  Dim ssTempEEE8B43A4F4B As String
  'Проверка на ошибки
  If Dir$(sBasePath) = "" Then
    LoadBase = 3
    Exit Function
  End If
  Open sBasePath For Input As #1
  'frmBase.Org.Text = ""
  'frmBase.Dbl.Text = ""
  'While Not EOF(1)
  '  Line Input #1, ssTempEEE8B43A4F4B
  '  frmBase.Org.Text = frmBase.Org.Text & ssTempEEE8B43A4F4B & vbCrLf
  '  If Not EOF(1) = True Then frmBase.Org.Text = frmBase.Org.Text & "|"
  'Wend
  Line Input #1, ssTempEEE8B43A4F4B
  If Not ssTempEEE8B43A4F4B = "BaseDate For Test v.1.0" Then GoTo FormatError
  Line Input #1, ssTempEEE8B43A4F4B
  If Not ssTempEEE8B43A4F4B = "#Include TestRWModule.Read" Then GoTo FormatError
  Line Input #1, ssTempEEE8B43A4F4B
  If Not ssTempEEE8B43A4F4B = "Begin" Then GoTo FormatError
  While Not EOF(1)
    Line Input #1, ssTempEEE8B43A4F4B
    If EOF(1) = True Then If ssTempEEE8B43A4F4B <> "End." Then GoTo FormatError
  Wend
  Close #1
 
  bTestLoaded = True
  LoadBase = -1
  Exit Function
 
FormatError:
  Close #1
  LoadBase = 1
End Function

'Процедура

'hWnd - манипулятор окна, Layered - степень прозрачности от 0 до 255
Public Function SetTransparent(hwnd As Long, Layered As Byte) As Boolean
On Error GoTo 1
Dim Ret As Long
If Not IsNT Then Exit Function
'Определяем стиль нужного окна
Ret = GetWindowLong(hwnd, GWL_EXSTYLE)
'Задаём стиль окна как заслоённый
Ret = Ret Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, Ret
'Задём степень прозрачности окна
SetLayeredWindowAttributes hwnd, 1, Layered, LWA_ALPHA
SetTransparent = True
1 Exit Function
End Function

Public Function IsWinNT() As Boolean
    'Определение линейки Windows
    'Рассылка VBNet.Ru
    Dim info As OSVERSIONINFO
    info.dwOSVersionInfoSize = Len(info)
    GetVersionEx info
    IsWinNT = (info.dwPlatformId = VER_PLATFORM_WIN32_NT)
End Function

Ответить

Форму, прозрачной? ))

Да как 2 байта переслать...

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Const GWL_EXSTYLE As Long = -20

Const WS_EX_LAYERED As Long = &H80000

Const LWA_ALPHA As Long = 2

Private Sub Form_Load()

Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

Call SetLayeredWindowAttributes(Me.hwnd, 0, 234, LWA_ALPHA)

End Sub

Ответить

Во! Прозрачность работает! Хоть с этим разобрался ,и на этом спасибо!

Ответить

Я когда-то составлял большой док по портам, выдранный из разных мест... 135 - NetBIOS, это я до сих пор помню.

Картинки в сообщения можно вставлять отвечая в формате HTML, берешь смайлик из тех, что справа и перетаскиваешь в поле редактирования сообщения. Если же хочешь свою картинку, размещаешь ее на каком-нибудь сайте (например, на Народе), пишешь ответ в формате text и вставляеьш тег картинки img с параметром src="URL твоей картинки"

Ответить

Я когда-то составлял большой док по портам, выдранный из разных мест... 135 - NetBIOS, это я до сих пор помню.

Картинки в сообщения можно вставлять отвечая в формате HTML, берешь смайлик из тех, что справа и перетаскиваешь в поле редактирования сообщения. Если же хочешь свою картинку, размещаешь ее на каком-нибудь сайте (например, на Народе), пишешь ответ в формате text и вставляеьш тег картинки img с параметром src="URL твоей картинки"

Ответить