如何開發記事本加工業務接單

❶ 如何用記事本編程

跟我學做記事本-編程實例
用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個省的省級代理才能開始工廠運作，不然買了設備，請了工人沒東西做，到時候再開發市場就來不及了，很多工廠都是死在這條路上。等工廠開始運作兩三個月後，再跑完自己所在省的每個地級市，每個城市務必要拿下一個代理商。就算不賺錢也要把銷售渠道給建立起來，工廠建立初期建議先別從盈利角度去考慮問題，要從建立信譽，提高產品質量，增加產品銷量入手考慮。等到周圍各省市銷售渠道打通後再集中研發高端產品，從高端產品的推廣中賺取豐厚的利潤。以上純屬個人經驗。有什麼疑問還可以補充回答