- admin
- 2025-03-24 06:32:39
- 蜘蛛
whatsapp网页版聊天工具 whatsapp电脑端刷不出二维码
whatsapp网页版聊天工具
whatsapp网页版登录后，您将看到一个类似于手机应用程序的界面，可以使用它来发送消息、分享图片、视频和其他文件等。与手机应用程序相比，网页版的界面更加宽敞和易于使用。您可以轻松地使用鼠标和键盘来输入消息和其他内容，而不需要在手机屏幕上进行操作。
whatsapp网页版聊天工具目录
strB = Button1.Text
txtexpr.Text = txtexpr.Text + strB
strB = txtexpr.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
strB = Button2.Text
txtexpr.Text = txtexpr.Text + strB
strB = txtexpr.Text
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
strB = Button3.Text
txtexpr.Text = txtexpr.Text + strB
strB = txtexpr.Text
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
strB = Button4.Text
txtexpr.Text = txtexpr.Text + strB
strB = txtexpr.Text
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
strB = Button5.Text
txtexpr.Text = txtexpr.Text + strB
strB = txtexpr.Text
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
strB = Button6.Text
txtexpr.Text = txtexpr.Text + strB
strB = txtexpr.Text
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
strB = Button7.Text
txtexpr.Text = txtexpr.Text + strB
strB = txtexpr.Text
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
strB = Button8.Text
txtexpr.Text = txtexpr.Text + strB
strB = txtexpr.Text
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
strB = Button9.Text
txtexpr.Text = txtexpr.Text + strB
txtexpr.Text = strB
前不久做的，测试过的
Dim Num2 As Double
Dim Equal As Double
Dim M As Double
Dim Equal2 As Integer
Dim StrNum1 As String
Dim StrNum2 As String
Dim FirstPoint As Boolean
Dim FirstNum As Boolean
Private Sub Command1_Click(Index As Integer)'数字输入
Select Case Index
Case 0 To 9
StrNum1 = LTrim(StrNum1) + LTrim(Str(Index))
Do While Left(LTrim(StrNum1), 1) = "0"'去掉高位数字0
StrNum1 = Mid(StrNum1, 2)
Loop
If Left(LTrim(StrNum1), 1) = "." Then StrNum1 = "0" + LTrim(StrNum1)
Text1.Text = StrNum1 '数字显示
Case 10
If FirstPoint Then'小数点的输入
StrNum1 = LTrim(StrNum1) + LTrim(".")
Do While Left(LTrim(StrNum1), 1) = "0"'去掉高位数字0
StrNum1 = Mid(StrNum1, 2)
Loop
If Left(LTrim(StrNum1), 1) = "." Then StrNum1 = "0" + LTrim(StrNum1)
Text1.Text = StrNum1'数字显示
FirstPoint = False
Text1.Text = StrNum1
End If
Case 11
StrNum1 = Text1.Text'退格
If Len(StrNum1) > 0 Then
StrNum1 = Left(StrNum1, Len(StrNum1) - 1)'每一次退格,从字符串后面去掉一个字符
Text1.Text = StrNum1
Else
Text1.Text = "0.0"
End If
If InStr(StrNum1, ".") = 0 Then FirstPoint = True '若字符串中没有小数点,把小数点开关打开
Case 12'清零
StrNum1 = ""
StrNum2 = ""
Text1.Text = "0.0"
aa = ""
Equal = 0
Num1 = 0
Num2 = 0
FirstPoint = True'小数点开关
FirstNum = True '第一个数开关
Case 13 '正负符号
If Val(StrNum1) > 0 Then
StrNum1 = "-" + LTrim(StrNum1)
Else
StrNum1 = Abs(Val(StrNum1))
End If
Text1.Text = StrNum1
Case 14 '电源开关
End
End Select
End Sub
Private Sub Command2_Click(Index As Integer)'+-*/运算
Equal2 = Index'=号开关
If FirstNum Then'存第一个数,其中FirstNum为开关
StrNum2 = StrNum1
StrNum1 = ""
FirstNum = False
FirstPoint = True '小数点开,以便输入第二个数
Else'若不是第一个数进入下面的+-*/运算
Select Case Index
Case 0'0为加法
Num1 = Val(StrNum2)'Num1存第一个数
Num2 = Val(StrNum1)'Num2存第二个数
Equal = Num1 + Num2'Equal存结果
StrNum2 = Str(Equal) 'StrNum2返回结果,以便下次让Num1存结果
StrNum1 = "" 'StrNum1清空,以便下次数字输入
aa = Str(Equal)
If Left(LTrim(aa), 1) = "-" And Left(LTrim(aa), 2) = "-." Then aa = "-0" + LTrim(Abs(Equal))
If Left(LTrim(aa), 1) = "." Then aa = "0" + LTrim(aa)
Text1.Text = aa '显示结果
FirstPoint = True'小数点开
Case 1'1为减法
Num1 = Val(StrNum2)
Num2 = Val(StrNum1)
Equal = Num1 - Num2
StrNum2 = Str(Equal)
StrNum1 = ""
aa = Str(Equal)
If Left(LTrim(aa), 1) = "-" And Left(LTrim(aa), 2) = "-." Then aa = "-0" + LTrim(Abs(Equal))
If Left(LTrim(aa), 1) = "." Then aa = "0" + LTrim(aa)
Text1.Text = aa
FirstPoint = True
Case 2'为乖法
Num1 = Val(StrNum2)
If StrNum1 = "" Then'便于+-*/之间切换
Num2 = 1
Else
Num2 = Val(StrNum1)
End If
Equal = Num1 * Num2
StrNum2 = Str(Equal)
StrNum1 = ""
aa = Str(Equal)
If Left(LTrim(aa), 1) = "-" And Left(LTrim(aa), 2) = "-." Then aa = "-0" + LTrim(Abs(Equal))
If Left(LTrim(aa), 1) = "." Then aa = "0" + LTrim(aa)
Text1.Text = aa
FirstPoint = True
Case 3'3为除法
Num1 = Val(StrNum2) 'Num1存第一个数
If StrNum1 = "" Then
Num2 = 1
Else
Num2 = Val(StrNum1)
End If
Equal = Num1 / Num2
StrNum2 = Str(Equal)'Num2存第二个数
StrNum1 = ""
aa = Str(Equal)
If Left(LTrim(aa), 1) = "-" And Left(LTrim(aa), 2) = "-." Then aa = "-0" + LTrim(Abs(Equal))
If Left(LTrim(aa), 1) = "." Then aa = "0" + LTrim(aa)
Text1.Text = aa
FirstPoint = True
End Select
End If
End Sub
Private Sub Command3_Click()'=号运算
FirstNum = True '第一个数关,关掉连继+-*/
Select Case Equal2'Equal2为=号按键判断+-*/哪种运算
Case 0'+运算
If StrNum2 = "" Then
Num1 = Equal
Else
Num1 = Val(StrNum2)
End If
Num2 = Val(Text1.Text)
Equal = Num1 + Num2
StrNum1 = ""'返回结果
aa = Str(Equal)
If Left(LTrim(aa), 1) = "-" And Left(LTrim(aa), 2) = "-." Then aa = "-0" + LTrim(Abs(Equal))
If Left(LTrim(aa), 1) = "." Then aa = "0" + LTrim(aa)
Text1.Text = aa '显示结果
FirstPoint = True'小数点开
Case 1'-运算
If StrNum2 = "" Then
Num1 = Equal
Else
Num1 = Val(StrNum2)
End If
Num2 = Val(Text1.Text)
Equal = Num1 - Num2
StrNum1 = ""
aa = Str(Equal)
If Left(LTrim(aa), 1) = "-" And Left(LTrim(aa), 2) = "-." Then aa = "-0" + LTrim(Abs(Equal))
If Left(LTrim(aa), 1) = "." Then aa = "0" + LTrim(aa)
Text1.Text = aa
FirstPoint = True
Case 2'*运算
If StrNum2 = "" Then
Num1 = Equal
Else
Num1 = Val(StrNum2)
End If
If StrNum1 = "" Then
Num2 = 1
Else
Num2 = Val(Text1.Text)
End If
Equal = Num1 * Num2
StrNum1 = ""
aa = Str(Equal)
If Left(LTrim(aa), 1) = "-" And Left(LTrim(aa), 2) = "-." Then aa = "-0" + LTrim(Abs(Equal))
If Left(LTrim(aa), 1) = "." Then aa = "0" + LTrim(aa)
Text1.Text = aa
FirstPoint = True
Case 3'/运算
If StrNum2 = "" Then
Num1 = Equal
Else
Num1 = Val(StrNum2)
End If
If StrNum1 = "" Then
Num2 = 1
Else
Num2 = Val(Text1.Text)
End If
Equal = Num1 / Num2
StrNum1 = ""
aa = Str(Equal)
If Left(LTrim(aa), 1) = "-" And Left(LTrim(aa), 2) = "-." Then aa = "-0" + LTrim(Abs(Equal))
If Left(LTrim(aa), 1) = "." Then aa = "0" + LTrim(aa)
Text1.Text = aa
FirstPoint = True
End Select
End Sub
Private Sub Command4_Click()'开方运算
aa = Val(Text1.Text)
StrNum1 = ""
If aa >= 0 Then
aa = Str(Sqr(aa))
If Left(LTrim(aa), 1) = "." Then aa = "0" + LTrim(aa)
Text1.Text = aa
Else
MsgBox "被开方数少于零"
End If
End Sub
Private Sub Command7_Click()'倒数运算
aa = Val(Text1.Text)
StrNum1 = ""
aa = Str(1 / aa)
If Left(LTrim(aa), 1) = "-" And Left(LTrim(aa), 2) = "-." Then aa = "-0" + LTrim(Abs(Equal))
If Left(LTrim(aa), 1) = "." Then aa = "0" + LTrim(aa)
Text1.Text = aa
End Sub
Private Sub Command8_Click(Index As Integer)'存贮器操作
Select Case Index
Case 0'MC,存贮器清零
Text2.Text = ""
M = 0
Case 1'MR,显示存贮器内容
whatsapp如何搜索关键词
把 Whatsapp 档案传至电脑？急需把Whatsapp的档案传上电脑，只需要点开Whatsapp网页版，就可以在电脑下载手机Whatsapp 里的档案了。
whatsapp怎么给好友备注
WhatsApp您可以封锁某些联系人，停止接收他们发送的 WhatsApp 消息和动态更新，以及停止接听向您发起的通话。您还可以向我们举报有问题的内容。
whatsapp设备有封号记录怎么解决
whatsapp网页版通过将whatsapp的便利性扩展到电脑浏览器上，提供了实时同步、多设备使用、扩展功能、键盘快捷键和无需下载等功能特点，为用户带来了更加便捷的聊天体验。
安卓手机装whatsapp网页版
whatsapp 网页版快捷键
whatsapp 网页版还提供了许多方便的快捷键，可以让你更快地完成一些操作。以下是一些常用的快捷键：
Ctrl + N：创建新聊天
Ctrl + Shift + ]：下一个联系人聊天
Ctrl + Shift + [：上一个联系人聊天
Ctrl + E：搜索联系人
Ctrl + Shift + M：静音/取消静音聊天
Ctrl + Backspace：删除选中的聊天
Ctrl + Shift + U：标记聊天为已读
Ctrl + Shift + N：创建新群组
Ctrl + Shift + N：创建新群组