neu
This commit is contained in:
@@ -8,6 +8,8 @@ Public Class frmMessenger
|
||||
Dim MSG_LISTENDER As New cMessangerListender
|
||||
Dim topMessages As String = "20"
|
||||
Dim loaded = False
|
||||
Public EMOJI_PATH_MAIN = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
|
||||
Public EMOJI_PATH = ""
|
||||
|
||||
Dim alloweasteregg = False
|
||||
|
||||
@@ -20,6 +22,37 @@ Public Class frmMessenger
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initEMOJI_PATH()
|
||||
|
||||
EMOJI_PATH = EMOJI_PATH_MAIN
|
||||
Try
|
||||
Dim IPADDR As System.Net.IPAddress
|
||||
IPADDR = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0)
|
||||
|
||||
If IPADDR.ToString.Contains("172.16.1.") Then 'WAIDHAUS
|
||||
EMOJI_PATH = "\\172.16.1.100\f\PROGRAMME\CHAT_EMOJIS\"
|
||||
End If
|
||||
|
||||
If IPADDR.ToString.Contains("192.168.133.") Then 'SALZBURG
|
||||
EMOJI_PATH = "\\192.168.133.98\f\Programme\CHAT_EMOJIS\"
|
||||
End If
|
||||
|
||||
If IPADDR.ToString.Contains("192.168.32.") Then 'NICKELSDORF
|
||||
EMOJI_PATH = "\\192.168.32.253\Files\Programme\CHAT_EMOJIS\"
|
||||
End If
|
||||
|
||||
If IPADDR.ToString.Contains("192.168.100") Then 'NEUHAUS
|
||||
EMOJI_PATH = "\\192.168.100.20\Share\Programme\CHAT_EMOJIS\"
|
||||
End If
|
||||
|
||||
If Not IO.Directory.Exists(EMOJI_PATH) Then
|
||||
EMOJI_PATH = EMOJI_PATH_MAIN
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellContentClick, dgvChats.CellClick
|
||||
If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
|
||||
Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1)
|
||||
@@ -38,6 +71,8 @@ Public Class frmMessenger
|
||||
End Sub
|
||||
|
||||
Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
initEMOJI_PATH()
|
||||
|
||||
rtbChatMessage.AllowDrop = True
|
||||
MSG_LISTENDER.START()
|
||||
TimerNEW_MESSAGE.Enabled = True
|
||||
@@ -56,8 +91,12 @@ Public Class frmMessenger
|
||||
FlowLayoutPanel.Controls.Clear()
|
||||
If alloweasteregg Then pic.Visible = False
|
||||
|
||||
If IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
|
||||
For Each a In IO.Directory.GetFiles(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") '.OrderBy(Function(f) f)
|
||||
|
||||
|
||||
' If IO.Directory.Exists(My.Application.roo "") Then
|
||||
|
||||
If IO.Directory.Exists(EMOJI_PATH) Then
|
||||
For Each a In IO.Directory.GetFiles(EMOJI_PATH) '.OrderBy(Function(f) f)
|
||||
If alloweasteregg Or Not a.Contains("easteregg") Then
|
||||
If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
|
||||
|
||||
@@ -81,38 +120,38 @@ Public Class frmMessenger
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub initEmojisTEST()
|
||||
FlowLayoutPanel.Controls.Clear()
|
||||
If alloweasteregg Then pic.Visible = False
|
||||
'Sub initEmojisTEST()
|
||||
' FlowLayoutPanel.Controls.Clear()
|
||||
' If alloweasteregg Then pic.Visible = False
|
||||
|
||||
If IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
|
||||
Dim EmojiPath = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "CHAT_EMOJIS\"
|
||||
If Not IO.Directory.Exists(EmojiPath) Then IO.Directory.CreateDirectory(EmojiPath)
|
||||
' If IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
|
||||
' Dim EmojiPath = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "CHAT_EMOJIS\"
|
||||
' If Not IO.Directory.Exists(EmojiPath) Then IO.Directory.CreateDirectory(EmojiPath)
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\", EmojiPath, {}) Then
|
||||
For Each a In IO.Directory.GetFiles(EmojiPath) '.OrderBy(Function(f) f)
|
||||
If alloweasteregg Or Not a.Contains("easteregg") Then
|
||||
If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
|
||||
' If VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\", EmojiPath, {}) Then
|
||||
' For Each a In IO.Directory.GetFiles(EmojiPath) '.OrderBy(Function(f) f)
|
||||
' If alloweasteregg Or Not a.Contains("easteregg") Then
|
||||
' If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
|
||||
|
||||
Dim p As New PictureBox
|
||||
p.Size = New Size(40, 40)
|
||||
p.BackgroundImage = Image.FromFile(a)
|
||||
p.BackgroundImageLayout = ImageLayout.Zoom
|
||||
p.Cursor = Cursors.Hand
|
||||
AddHandler p.Click, Sub()
|
||||
If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
|
||||
If CHAT IsNot Nothing Then
|
||||
saveEmoji(a)
|
||||
End If
|
||||
End Sub
|
||||
' Dim p As New PictureBox
|
||||
' p.Size = New Size(40, 40)
|
||||
' p.BackgroundImage = Image.FromFile(a)
|
||||
' p.BackgroundImageLayout = ImageLayout.Zoom
|
||||
' p.Cursor = Cursors.Hand
|
||||
' AddHandler p.Click, Sub()
|
||||
' If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
|
||||
' If CHAT IsNot Nothing Then
|
||||
' saveEmoji(a)
|
||||
' End If
|
||||
' End Sub
|
||||
|
||||
FlowLayoutPanel.Controls.Add(p)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
' FlowLayoutPanel.Controls.Add(p)
|
||||
' End If
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True)
|
||||
With dgvChats
|
||||
@@ -278,7 +317,7 @@ Public Class frmMessenger
|
||||
Case "EMOJI"
|
||||
|
||||
|
||||
Dim CHAT_ITEM As New usrCntlMessenger_ChatEmoji(MSG)
|
||||
Dim CHAT_ITEM As New usrCntlMessenger_ChatEmoji(Me, MSG)
|
||||
checkUsrId(MSG, CHAT_ITEM)
|
||||
' CHAT_ITEM.path = MSG.chatMg_text
|
||||
' CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text
|
||||
|
||||
@@ -3,7 +3,7 @@
|
||||
Public Class usrCntlMessenger_ChatEmoji
|
||||
Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
|
||||
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
|
||||
|
||||
Dim frmM As frmMessenger
|
||||
'Public FI As String = ""
|
||||
|
||||
Sub New()
|
||||
@@ -15,13 +15,13 @@ Public Class usrCntlMessenger_ChatEmoji
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
|
||||
Sub New(frmM As frmMessenger, CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.CHAT_MSG = CHAT_MSG
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
Me.frmM = frmM
|
||||
End Sub
|
||||
Sub setBgCOLOR(BG_COLOR)
|
||||
' Me.BG_COLOR = BG_COLOR
|
||||
@@ -36,9 +36,21 @@ Public Class usrCntlMessenger_ChatEmoji
|
||||
Sub init()
|
||||
If CHAT_MSG IsNot Nothing Then
|
||||
' txtChatmessage.Text = CHAT_MSG.chatMg_text
|
||||
Try
|
||||
|
||||
pic.BackgroundImage = Image.FromFile(CHAT_MSG.chatMg_text)
|
||||
Dim imgPath = CHAT_MSG.chatMg_text
|
||||
Try
|
||||
'Dim frmM As frmMessenger = DirectCast(Me.Parent, frmMessenger)
|
||||
If frmM.EMOJI_PATH <> frmM.EMOJI_PATH_MAIN Then
|
||||
If IO.File.Exists(imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH)) Then
|
||||
imgPath = imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH)
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Try
|
||||
pic.BackgroundImage = Image.FromFile(imgPath)
|
||||
pic.BackgroundImageLayout = Windows.Forms.ImageLayout.Zoom
|
||||
Catch ex As Exception
|
||||
' MsgBox(ex.Message & ex.StackTrace)
|
||||
|
||||
Reference in New Issue
Block a user