如何开发记事本加工业务接单

❶ 如何用记事本编程

跟我学做记事本-编程实例
用VB做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本，旨在向VB初学者展示：学VB原来是如此容易！
通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。

第一章 让我们的记事本马上运行

急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！

步骤一：绘制界面。

新建一个标准EXE工程，将其Caption属性改为“超级记事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft

RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText

Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。

步骤二：编辑菜单。

按Ctrl+E调出菜单编辑器，我们来做如下几个菜单：

一.文件菜单：

文件（第一层） mnuFile

新建（第二层） mnuNew

打开（第二层） mnuOpen

保存（第二层） mnuSave

- （第二层） mnuFileSep (分隔线）

退出（第二层） mnuExit

二.编辑菜单：

编辑（第一层） mnuEdit

复制（第二层） mnuCopy

剪切（第二层） mnuCut

粘贴（第二层） mnuPaste

- （第二层） mnuEditSep （分隔线）

全选（第二层） mnuSelecAll

三.搜索菜单：

搜索（第一层） mnuSearch

查找（第二层） mnuFind

查找下一个（第二层） mnuFindOn

四.帮助菜单：

帮助（第一层） mnuHelp

使用说明（第二层） mnuUsage

关于（第二层） mnuAbout

(注：各菜单项的快捷键请自行设置)

好了，其它的菜单项以后再根据需要添加。现在进入：

步骤三：编写代码。

'声明查找变量

Dim sFind As String

'声明文件类型

Dim FileType, FiType As String

'初始化程序

Private Sub Form_Load()

'设置程序启动时的大小

Me.Height = 6000

Me.Width = 9000

End Sub

'设置编辑框的位置和大小

Private Sub Form_Resize()

On Error Resume Next '出错处理

RichTextBox1.Top=20

RichTextBox1.Left=20

RichTextBox1.Height = ScaleHeight-40

RichTextBox1.Width = ScaleWidth-40

End Sub

'新建文件

Private Sub mnuNew_Click()

RichTextBox1.Text = "" '清空文本框

FileName = "未命名"

Me.Caption = FileName

End Sub

'打开文件

Private Sub mnuOpen_Click()

CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"

CommonDialog1.ShowOpen

RichTextBox1.Text = "" '清空文本框

FileName = CommonDialog1.FileName

RichTextBox1.LoadFile FileName

Me.Caption = "超级记事本：" & FileName

End Sub

'保存文件

Private Sub mnuSave_Click()

CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"

CommonDialog1.ShowSave

FileType = CommonDialog1.FileTitle

FiType = LCase(Right(FileType, 3))

FileName = CommonDialog1.FileName

Select Case FiType

Case "txt"

RichTextBox1.SaveFile FileName, rtfText

Case "rtf"

RichTextBox1.SaveFile FileName, rtfRTF

Case "*.*"

RichTextBox1.SaveFile FileName

End Select

Me.Caption = "超级记事本：" & FileName

End Sub

'退出

Private Sub mnuExit_Click()

End

End Sub

'复制

Private Sub mnuCopy_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText

End Sub

'剪切

Private Sub mnuCut_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText

RichTextBox1.SelText = ""

End Sub

'全选

Private Sub mnuSelectAll_Click()

RichTextBox1.SelStart = 0

RichTextBox1.SelLength = Len(RichTextBox1.Text)

End Sub

'粘贴

Private Sub mnuPaste_Click()

RichTextBox1.SelText = Clipboard.GetText

End Sub

'查找

Private Sub mnuFind_Click()

sFind = InputBox("请输入要查找的字、词：", "查找内容",

sFind)

RichTextBox1.Find sFind

End Sub

'继续查找

Private Sub mnuFindOn_Click()

RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1

RichTextBox1.Find sFind, , Len(RichTextBox1)

End Sub

'使用说明

Private Sub mnuReadme_Click()

On Error GoTo handler

RichTextBox1.LoadFile "Readme.txt", rtfText '请写好Readme.txt文件并存入程序所在文件夹中

Me.Caption = "超级记事本：" & "使用说明"

Exit Sub

handler:

MsgBox "使用说明文档可能已经被移除，请与作者联系。",

vbOKOnly, " 错误信息"

End Sub

'关于

Private Sub mnuAbout_Click()

MsgBox "超级记事本 Ver1.0 版权所有(C) 2001 土人",vbOKOnly,"关于"

End Sub

'设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As

Single, Y As Single)

If Button = 2 Then

PopupMenu mnuEdit, vbPopupMenuLeftAlign

Else

Exit Sub

End If

End Sub

'防止在切换输入法时字体自变(感谢王必成先生提供此方案)

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeySpace Then

RichTextBox1.SelFontName = CommonDialog1.FontName

End If

End Sub

至此，我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”，回到桌面运行我们的记事本看看，是不是颇有成就感？

当然，这样的记事本还比较粗糙,我们还需要做些工作，请看下一章。

第二章 美化程序界面

多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外，还给用户带来操作上的便利。现在我们就来做一做这两样东西。

一.工具栏

(一)制作工具栏

单击“工程”-“部件”，选中Microsoft Windows Common Control 6.0并确定。这时，我们要用到的控件就出现在左边的工具栏上了。

要做工具栏，首先需要一个叫ImageList的控件来装载图像。在程序界面上添加它，然后右键单击此控件，左键单击“属性”，弹出“属性页”对话框的“图像”，再单击“插入图片”就可以一次性装载图片了（如不满意，以后还可以添加）。图片可在C:Microsoft

Visual _W95下选择(这里假设你的VB安装在C盘下)。注意了：在插入图片时给每一张图片注明关键字，以便在引用图片时不至于混乱。如插入“新建”的图片，我们在“关键字”栏注明“New”。

图片有了，接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面，右键单击它，选择“属性”，在弹出的“属性页”对话框中的“通用”项作些设置，主要如下两项：

1.“图像列表”：选择ImageList1

2.“样式”：根据喜爱选择1-trbStandard或者2-trbFlat

继续点击“属性页”的“按钮”选项，插入若干按钮。按钮有多种样式，请根据需要设置。这里请一定注意：每一个与用户操作有关的按钮都必须注明关键字、装载图片，如“新建”按钮，在“关键字”项注明“新建”，在“图像”项键入“New”（即ImageList1中的图片关键字）,需要的话还可以在“工具提示文本”项填入适当的提示语。

(二)编写工具栏的按钮代码

工具栏按钮的代码编辑很简单，可以按照下面的格式去编写：

Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)

On Error Resume Next '出错处理

Select Case Button.Key '按关键字选择

Case "新建"

mnuNew_Click '等于菜单项“新建”被单击

Case "打开" '等于菜单项“打开”被单击

mnuOpen_Click

'......(继续编写其它按钮的代码)

End Select

End Sub

完成后试运行一下我们的程序，我们发现，有了工具栏之后，程序变得漂亮多了，只是有一个问题：打开一个较长的文档后，编辑框的下拉滚动条向上的箭头不见了。原因是：工具条占用一定的空间。解决方法：将“设置编辑框的位置和大小”中的RichTextBox1.Top

= 20 和 RichTextBox1.Height = Me.ScaleHeight - 40分别改为RichTextBox1.Top =

380，RichTextBox1.Height = Me.ScaleHeight - 400即可。

二.状态栏

(一)制作状态栏

状态栏的英文名字叫StatusBar，在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它，调出“属性页”对话框，单击“窗格”项，插入一些窗格，可以将各个窗格的“样式”设置为：

0-sbrText 显示文本，需编写代码

1-sbrCaps 显示大小写状态，无需编程

2-sbrNum 显示NumLock键开关状态，无需编程

3-sbrIns 显示Insert键状态，无需编程

4-sbrScr1

5-sbrTime 显示时间，不编程时时间不会随系统时钟变化

6-sbrDate 显示日期，无需编程

注意：加进状态栏后需将Form_Resze中的RichTextBox1.Height =

Me.ScaleHeight - 400改为RichTextBox1.Height = Me.ScaleHeight - 600。

(二)状态栏根据其“样式”属性决定用不用编写代码(如上文所述)。下面举些例子，读者可以认真揣摩，从而达到举一反三的效果。

例一：用户选取了“新建”后，让第一个窗格显示：“目前状态：正在打开文件《……》”。请将下面代码写进“打开”菜单里面：

StatusBar1.Panels(1).Text = "目前状态：正在打开文件"

& "《" &CommonDialog1.FileTitle & "》"

例二：让第三个窗格显示时间并让时间跟随系统时钟变化。

首先，给程序加一个Timer控件，将其Interval属性设为1000。然后：

在Form_Load过程加入：StatusBar1.Panels(1).Text = Time；然后给Timer控件编写代码：

Private Sub Timer1_Timer()

If StatusBar1.Panels(3).Text <> CStr(Time) Then

StatusBar1.Panels(3).Text = Time

End If

End Sub

例三：当编辑框的文本发生变化时让第一个窗格显示：“正在编辑文档：文件名”。

Private Sub RichTextBox1_Chang()

StatusBar1.Panels(1).Text = "正在编辑文档：" &

CommonDialog1.FileName

End Sub

辛苦了那么久，我们现在已经拥有一个象模象样的记事本了。这个记事本由于用了RichText控件，理论上它能打开和编辑任意大的文档，使用起来的确比Windows自带的记事本方便得多。当然，还有一些其它的功能需要添加和完善，这就靠你慢慢去完成了。

❷ 我想开一个服装加工厂，怎样才能接到服装代加工订单 感谢各位了

1、先自己朋友

客户介绍是厂里接单的最重要渠道之一。

2、在网上找单子

是既省时又省力而且省钱的最佳的接单渠道，很多的公司都会利用网络来发布订单消息。现在网络交易的规范性还是保障性相对来说还是比较可靠的。

比如依赖网络存在的商品种类最为齐全的淘宝店，还有现在依靠庞大微信流量用户下异常火爆的拼多多。所以，可以可以尝试着注册一些电子商务平台，尤其是专业性较强的电子商务平台。在这些平台上找单、接单。

3、自己供销

例如直播带货，现在特别火，但是培养一个网红也是相当不容易的，就算给网红供货，但是一般需要很低的价格，而且资金压力也特别大，如今是全民直播的时代，很多工厂也在需求这样一个直播带货的出路。

4、可以在1688批发网上注册店铺

在上面接订单生产。或者做几个比较有优势的款式去销售，可以做一件代发，可以订单生产。这个方法需要一定的经济实力支撑，但是比较主动。

5、做一个官网

把你的优势展示出来，毕竟，现在很多工厂比较缺人，需要把一部分的业务外发加工。

6、扩大业务范围

因为服装厂主要就是平车活，平车能做的东西很多，比如窗帘、床上用品、玩具、领带、箱包等等，都是可以做得出来的。

❸ 加工厂怎么接单

• 首先，双方要想取得合作，最基本的条件之一是相互的信任，只有这样，才可能达成接单的需求。那么，如何建立起信任？真诚和坦诚很重要，没有真诚，不会谈合作，没有坦诚，不会建立信任。所以，要想进行合作，取得接单任务，这一点是很重要的。

  

❹ 如何在网上接加工订单

，一个是等待客户上门。不能说这两种方法谁好谁坏，最好结合起来使用。 一、主动寻找。如果你是诚信通用户，可以看到采购信息。你最好第一时间联系上采购商。但是，这个成功率不太高。因为大家都能看到采购信息，向采购商发出邀请的人很多。所以，竞争及其激烈。但不要放弃。 二、等客户上门。如果你是诚信通，以下几点建议希望对你有所帮助： ２.在做好这些基础工作的同时，你可以尝试利用博客、论坛、商圈和阿里旺旺。这些工具都是免费的。你可以尝试写点软文，比如，你创业的经历，你和客户交往的故事，你对阿里的认识等等。这些软文发到博客后，可以和旺铺结合起来，直接显示在旺铺里。在博客发文时，文章目录请选择公司动态，这样就可以直接显示在旺铺里了。 ３.如果你的产品是消费品，那还可以尝试在淘宝开店，甚至是发展分销店主。这样，不但可以推广你们的品牌，还能获得订单。 ４.多学习。谁都是从新手走过来的，所以，必须善于学习，从论坛上，博客上学习。相信，经过你的努力，你会很好地利用阿里平台的。

❺ 阿里云数据加工项目怎么接单

在1688里面进行操作接单流程。
1、进入1688里面加入诚信通会员。
2、加入诚信通会员后阿里会提供免费装修店铺的服务，整理好产品图片和公司信息发送给阿里巴巴的美工。
3、装修好店铺后上传公司可以加工的产品，设置产品的属性.批量和价格。
4、用诚信通账户登陆千牛，在千牛里面及时回复买家产品加工的属性信息比如产品的尺寸，材料，包装，最少订单数量，买家感觉各方面都合理就会在平台下单，后面卖家就可以按照产品尺寸，材料，包装加工产品了。

❻ 如何在网上接加工订单

如果你想接这样的加工订单的话，建议就是找一些平台，然后通过平台进行接单，一般情况下是比较靠谱的。因为平台的可靠性比较好。

❼ 怎样写车缝加工接单的文案

1、首先在开始写清楚接单对象。
2、其次在中间写清楚车缝加工的内容。
3、最后写清楚接单的要求，时间。

❽ 怎么样才能接到外贸加工订单

现在开发的渠道很多，主要看怎么开发。主动出击，开发客户，积累用户。
比如：全球采购商数据平台（贸管家），搜索引擎关键字搜索（谷歌），B2B平台，海关数据，行业展会等都是开发的好方法。

❾ 我想开一个服装加工厂，怎样才能接到服装代加工订单 感谢各位了

1、先自己朋友

客户介绍是厂里接单的最重要渠道之一。

2、在网上找单子

是既省时又省力而且省钱的最佳的接单渠道，很多的公司都会利用网络来发布订单消息。现在网络交易的规范性还是保障性相对来说还是比较可靠的。

比如依赖网络存在的商品种类最为齐全的淘宝店，还有现在依靠庞大微信流量用户下异常火爆的拼多多。所以，可以可以尝试着注册一些电子商务平台，尤其是专业性较强的电子商务平台。在这些平台上找单、接单。

3、自己供销

例如直播带货，现在特别火，但是培养一个网红也是相当不容易的，就算给网红供货，但是一般需要很低的价格，而且资金压力也特别大，如今是全民直播的时代，很多工厂也在需求这样一个直播带货的出路。

4、可以在1688批发网上注册店铺

在上面接订单生产。或者做几个比较有优势的款式去销售，可以做一件代发，可以订单生产。这个方法需要一定的经济实力支撑，但是比较主动。

5、做一个官网

把你的优势展示出来，毕竟，现在很多工厂比较缺人，需要把一部分的业务外发加工。

6、扩大业务范围

因为服装厂主要就是平车活，平车能做的东西很多，比如窗帘、床上用品、玩具、领带、箱包等等，都是可以做得出来的。

❿ 我想请问一下如何跑业务订单呢

建议先从业务员开始做，等有了一定的稳定客户再投资做工厂，产品也要从低端开始做。就是先出去接订单，接到订单找别人的厂帮你做，自己从中抽取小部分利润。你还可以找一些大型的同类工厂，帮他们加工一些小件单，有时候他们大单子接过来，自己做不过来会分出去一批做。这属于OEM订单，一个个省开始找。先从自己所在的省份开始。先去省会，比如我在温州，就先去杭州寻找一个大客户，从事玩具或者手袋批发的。省会的批发商会有一部分地级市的代理商（二级批发商）客户，借着才到零售商手里。因此只要拿下省会代理商，你的产品就会顺着渠道自然销售下去。最少要拿下附近3个省的省级代理才能开始工厂运作，不然买了设备，请了工人没东西做，到时候再开发市场就来不及了，很多工厂都是死在这条路上。等工厂开始运作两三个月后，再跑完自己所在省的每个地级市，每个城市务必要拿下一个代理商。就算不赚钱也要把销售渠道给建立起来，工厂建立初期建议先别从盈利角度去考虑问题，要从建立信誉，提高产品质量，增加产品销量入手考虑。等到周围各省市销售渠道打通后再集中研发高端产品，从高端产品的推广中赚取丰厚的利润。以上纯属个人经验。有什么疑问还可以补充回答