edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

RKSV_DE (Storno), Sprache div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-06 08:44:22 +01:00
parent 18bf96928a
commit 9a8b19aab4
20 changed files with 26005 additions and 3818 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -67,7 +67,7 @@ Public Class frmMessenger
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
Dim f As New frmMessenger_NeuerChat
f.ShowDialog(Me)
@@ -131,6 +131,7 @@ Public Class frmMessenger
'loaded = True
alloweasteregg = cAllgemein.MITARBEITER.mit_ChatEasteregg
initEmojis()
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
End Sub
Sub initEmojis()
@@ -214,6 +215,14 @@ Public Class frmMessenger
UsrCntlChat_Art_Btn_SNDCHAT.setCnt(newMsgSND)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein._LAN
Case "DE"
Case Else
UsrCntlChat_Art_Btn_MACHAT.btn.Text = "General"
UsrCntlChat_Art_Btn_LKWCHAT.btn.Text = "Truck"
UsrCntlChat_Art_Btn_SNDCHAT.btn.Text = "Shipment"
End Select
With dgvChats
Dim loadedTmp = loaded
@@ -697,7 +706,7 @@ Public Class frmMessenger
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSenden.Click
If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
If rtbChatMessage.Text.Trim <> "" Then
If CHAT IsNot Nothing Then
@@ -761,7 +770,7 @@ Public Class frmMessenger
Private Sub rtbChatMessage_KeyDown(sender As Object, e As KeyEventArgs) Handles rtbChatMessage.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.Return Then
btn.PerformClick()
btnSenden.PerformClick()
e.Handled = True
End If
End Sub
@@ -909,7 +918,7 @@ Public Class frmMessenger
End Try
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSendAtt.Click
If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
If CHAT IsNot Nothing Then
Dim fd As New OpenFileDialog
@@ -1217,25 +1226,25 @@ Public Class frmMessenger
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnMemberAdd.Click
Dim f As New frmMessenger_NeuerChat(CHAT)
f.ShowDialog()
initDGVMembers()
End Sub
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles btnMemberDel.Click
If dgvChatMembers.SelectedRows.Count >= 1 Then
If vbYes = MsgBox("Teilnehmer wirklich entfernen?", vbYesNoCancel) Then
Dim ol As New List(Of Object)
For Each r As DataGridViewRow In dgvChatMembers.SelectedRows
If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
For Each MB In CHAT.CHAT_MEMBERS
If r.Cells("clmnMaId").Value = MB.chatMb_maId Then
ol.Add(MB)
End If
Next
End If
Next
If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
For Each MB In CHAT.CHAT_MEMBERS
If r.Cells("clmnMaId").Value = MB.chatMb_maId Then
ol.Add(MB)
End If
Next
End If
Next
For Each o In ol
CHAT.CHAT_MEMBERS.Remove(o)
If CHAT.SAVE_MEMBERS() Then
@@ -1284,4 +1293,8 @@ Public Class frmMessenger
Private Sub UsrCntlChat_Art_snd_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_SNDCHAT.CLICKED
End Sub
Private Sub MyFlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs) Handles MyFlowLayoutPanel1.Paint
End Sub
End Class