求大神 帮忙将已下代码转换成vb.net

king-520 2017-09-21 10:55:27
/// <summary>
/// 打印测试:使用的是TCP/IP通讯,利用斑马打印机cpcl指令;
/// </summary>
[WebMethod(Description = "打印测试")]
public void PrintTest(string prstr, string printIp)
{
StringBuilder CPCLString = new StringBuilder();
CPCLString.Append("! 0 200 200 250 1");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("PW 609");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("TONE 0");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("SPEED 3");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("ON-FEED IGNORE");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("NO-PACE");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("COUNTRY CHINA");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("CENTER");
CPCLString.Append(Environment.NewLine);
CPCLString.AppendFormat("T 55 0 0 5 测试:{0}", prstr);
CPCLString.Append(Environment.NewLine);
CPCLString.AppendFormat("B 128 2 1 119 0 59 {0}", prstr);
CPCLString.Append(Environment.NewLine);
CPCLString.Append("FROM");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("PRINT");
CPCLString.Append(Environment.NewLine);

try
{
TcpClient client = new TcpClient(printIp, Convert.ToInt16("6101"));
NetworkStream ns = client.GetStream();
//字符串后一定要加回车换行才能执行打印
//byte[] bytes = Encoding.GetEncoding("UTF-8").GetBytes(CPCLString.ToString() + "\r\n");
byte[] bytes = Encoding.GetEncoding("gb2312").GetBytes(CPCLString.ToString());
ns.Write(bytes, 0, bytes.Length);
ns.Close();
client.Close();
}
catch (Exception ex)
{
StringBuilder sb = new StringBuilder();
sb.AppendFormat("方法名:{0}", MethodBase.GetCurrentMethod().Name);
sb.AppendLine();
sb.AppendFormat("出错时的参数值:string prstr={0}", prstr);
sb.AppendLine();
sb.AppendFormat("出错描述:{0}", ex.Message);
Logger.WriteLog(sb.ToString());
}
}
...全文
394 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
wq1282 2017-10-23
  • 打赏
  • 举报
回复
Imports System.Net.Sockets Imports System.Reflection Imports System.Text 在源码文件最前面,加上述三行,如果还报错,就把报错行注释掉再测试。 具体报错还是要看IDE提示什么错误 再根据实际情况调试,不是谁都知道你引用了哪些模块的。
king-520 2017-09-25
  • 打赏
  • 举报
回复
转换后在Windows ce中使用报错怎么解决?
ttsffgg 2017-09-23
  • 打赏
  • 举报
回复
http://converter.telerik.com/
king-520 2017-09-22
  • 打赏
  • 举报
回复
用什么工具转的呢?
langzhi1234 2017-09-22
  • 打赏
  • 举报
回复
用工具转的: ''' <summary> ''' 打印测试:使用的是TCP/IP通讯,利用斑马打印机cpcl指令; ''' </summary> <WebMethod(Description := "打印测试")> _ Public Sub PrintTest(prstr As String, printIp As String) Dim CPCLString As New StringBuilder() CPCLString.Append("! 0 200 200 250 1") CPCLString.Append(Environment.NewLine) CPCLString.Append("PW 609") CPCLString.Append(Environment.NewLine) CPCLString.Append("TONE 0") CPCLString.Append(Environment.NewLine) CPCLString.Append("SPEED 3") CPCLString.Append(Environment.NewLine) CPCLString.Append("ON-FEED IGNORE") CPCLString.Append(Environment.NewLine) CPCLString.Append("NO-PACE") CPCLString.Append(Environment.NewLine) CPCLString.Append("COUNTRY CHINA") CPCLString.Append(Environment.NewLine) CPCLString.Append("CENTER") CPCLString.Append(Environment.NewLine) CPCLString.AppendFormat("T 55 0 0 5 测试:{0}", prstr) CPCLString.Append(Environment.NewLine) CPCLString.AppendFormat("B 128 2 1 119 0 59 {0}", prstr) CPCLString.Append(Environment.NewLine) CPCLString.Append("FROM") CPCLString.Append(Environment.NewLine) CPCLString.Append("PRINT") CPCLString.Append(Environment.NewLine) Try Dim client As New TcpClient(printIp, Convert.ToInt16("6101")) Dim ns As NetworkStream = client.GetStream() '字符串后一定要加回车换行才能执行打印 'byte[] bytes = Encoding.GetEncoding("UTF-8").GetBytes(CPCLString.ToString() + "\r\n"); Dim bytes As Byte() = Encoding.GetEncoding("gb2312").GetBytes(CPCLString.ToString()) ns.Write(bytes, 0, bytes.Length) ns.Close() client.Close() Catch ex As Exception Dim sb As New StringBuilder() sb.AppendFormat("方法名:{0}", MethodBase.GetCurrentMethod().Name) sb.AppendLine() sb.AppendFormat("出错时的参数值:string prstr={0}", prstr) sb.AppendLine() sb.AppendFormat("出错描述:{0}", ex.Message) Logger.WriteLog(sb.ToString()) End Try End Sub

16,550

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧