Quantcast
Channel: 神魂顛倒論壇-Flash--Visual Basic .Net 討論最新50篇論壇主題-全文
Viewing latest articles
Browse all 74 Browse latest View live
↧

[求助]只算到小數點第2位的語法

September 23, 2007, 3:30 pm
$
0
0
如題 只算到小數點第2位的語法怎樣打 VB6.0的
↧
Search

VB教學網

November 25, 2007, 6:05 am
↧
↧

[求助] Visual Basic 2005 問題

November 28, 2007, 9:12 am
$
0
0

請問:

在VB6有表單配置視窗可以調整程式執行時在視窗的位置,

VB2005有此功能嗎?要如何才能達到此功能?

謝謝回覆~~

↧

個位會寫vb高手的大大 我想請教一下?

December 30, 2007, 3:11 am
$
0
0

我們老師出問題 想辦法讓最後變 = 號 我想了很久 都試不出來~

可不可以幫忙一下

因為假如我給數字是 5 就會等於 1+3+5+9 要怎麼才會1+3+5=9

老師只提是 用 if 做我們班的人想了很久我自己也試了很久弄不出個所以然拜託幫忙一下 感激~

如果可以的話麻煩可以方便說明一下 你用的如果的意思 謝謝

Private Sub Command1_Click()
inp = Val(Text1.Text)
If inp > 21 Or inp < 5 Then
ret = MsgBox("請輸入5~21的整數", 16, "錯誤訊息")
Text1.Text = ""
Text1.SetFocus
Else
If inp Mod 2 = 1 Then
ini = 1
Else
ini = 2
End If
total = 0
For i = ini To inp Step 2
total = total + i
str1 = str1 & i & " + "
Next

lblout.Caption = str1 & total
End If
End Sub


Private Sub Command2_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
ret = MsgBox("輸入必須為數值", 16, "錯誤訊息")
KeyAscii = 13
Text1.Text = ""
End If
End Sub

在新視窗檢視
↧

vb的教學網站

January 25, 2008, 7:41 am
$
0
0
本文章內容經過特殊加密，請到論壇直接檢視
↧
↧

[求助]威力彩程式設計

March 21, 2008, 11:41 am
$
0
0
台灣彩券發行「威力彩券」，本遊戲之選號分為兩區，您必須從第1個選號區中的01~38 的號碼中任選6個號碼， 並從第2個選號區中的01~08的號碼中任選1個號碼進行投注。本練習需要你開發一個電腦選號程式，它要能隨機地產生數個牌組，每組包含第1個區中的6個不同的號碼(需由小到大排列，不可重複)和第2區的1個號碼。可利用vbTab常數來定位。

http://photos1.hi5.com/0025/383/778/yXK0N6383778-02.jpg

以下是我的程式:

Module Module1

Sub Main()
Dim a As Integer
Console.Write("輸入你要的組數：")
a = Console.ReadLine()
random_num(a)
Console.ReadLine()
End Sub

Sub random_num(ByVal n)
Dim v, m As Integer
Dim i, j, b As Integer
Dim k(6) As Integer

For i = 1 To n
For j = 1 To 6
Randomize()
v = Int(37 * Rnd()) + 1

If k(j) > k(j - 1) Then
b = k(j - 1)
k(j - 1) = k(j)
k(j) = b
End If


Console.Write(v & vbTab)

Next
m = Int(Rnd() * (8 - 1 + 1) + 1)
Console.Write(m & vbTab)

Console.WriteLine()

Next
Console.Read()
End Sub

End Module

已經可以輸入組數了.兩區號碼也分好了.只是不知道第一區六個號碼怎麼讓她不重複.並且依照大小排序.已經有假設陣列.不過排序還是寫不出來.希望各位指點一下.感謝^^

http://photos1.hi5.com/0025/383/778/yXK0N6383778-02.jpg

以下是我的程式:

Module Module1

Sub Main()
Dim a As Integer
Console.Write("輸入你要的組數：")
a = Console.ReadLine()
random_num(a)
Console.ReadLine()
End Sub

Sub random_num(ByVal n)
Dim v, m As Integer
Dim i, j, b As Integer
Dim k(6) As Integer

For i = 1 To n
For j = 1 To 6
Randomize()
v = Int(37 * Rnd()) + 1

If k(j) > k(j - 1) Then
b = k(j - 1)
k(j - 1) = k(j)
k(j) = b
End If


Console.Write(v & vbTab)

Next
m = Int(Rnd() * (8 - 1 + 1) + 1)
Console.Write(m & vbTab)

Console.WriteLine()

Next
Console.Read()
End Sub

End Module

已經可以輸入組數了.兩區號碼也分好了.只是不知道第一區六個號碼怎麼讓她不重複.並且依照大小排序.已經有假設陣列.不過排序還是寫不出來.希望各位指點一下.感謝^^

[此文章已經被作者於2008/3/21 下午 11:43:05編輯過]
↧

想問下vb 和 c++的關係

April 25, 2008, 1:29 am
$
0
0
我是剛剛接觸vb的,
但我常常聽到vb 和c++這些名詞
它們有什麼分別嗎??

另外我在微軟的網站見到vb 2008,
但是在這裡好像很多人vb6.0 <===這是98年的嗎?

誰比較好??
先謝謝各位解答~~
↧

[求助]麻煩知道的大大幫個忙

May 9, 2008, 2:38 am
$
0
0
請問如何用VB寫出河內塔這個遊戲阿??
我再網路也看了一些可是還是不懂ˋˊ
麻煩厲害的大大能PO個程式碼順便解釋她各行的意思~
感謝^^!
↧
Search

快來喔~VB6.0 本人測試可以喔~ 趁點沒掛前快來喔~~

August 26, 2008, 9:45 am
$
0
0
本文章內容經過特殊加密，請到論壇直接檢視
↧
↧

[轉貼]Visual Basic 6企業版+Service Pack 6+MSDN LibraryVisual Studio 6.0版

September 15, 2008, 4:12 pm
$
0
0
本文章內容經過特殊加密，請到論壇直接檢視
↧

[分享]

October 13, 2008, 6:24 pm
$
0
0
跟大家分享判斷質數跟標準體重的程式,不過前提是需要有信箱,如果想要VB程式的話,在寄過來的信裡面說一聲,我會寄過去給你,信箱在下面↓
a7867933@yahoo.com.tw 這是我的信箱
↧

[求助]vb6程式設計問題

November 26, 2008, 11:29 pm
$
0
0

01請設計一個程式，能夠求出1到100之間的所有質數？ 

02請設計一個程式，輸入X值，電腦就會自動產生5個亂數(1~50之間)並顯示

出來，再將這5個亂數中，最大的值，顯示出來。

 

03設計一程式具有學號最後一碼的發XXX功能【例如：學號613202－＞即做發222】

拜託!~告訴我如何用程式碼把內容打出來

↧

向量軟體是否使用Visual Basic 2008 這軟體可以寫出

December 12, 2008, 6:28 pm
$
0
0
Microsoft Visual Basic 2008 Express Edition

如何寫，.....

請問有人知道基本程式，有地方下嗎?
↧
↧

[分享]台灣微軟新春好禮加碼送~

January 23, 2009, 12:01 pm
$
0
0
 

還記得微軟新春超牛福袋嗎？

只要您訂閱任一份台灣微軟電子報，就有機會將好禮帶回家！


即日起前五十名於部落格上推薦此活動的

還可得到【幽默現況立牌】喔！


這麼輕鬆得好康的方法，您還等什麼呢？

快來看看如何推薦吧～

http://www.microsoft.com/taiwan/newsletter/promo/blogad.htm

↧

vb2008版下載

January 28, 2009, 6:11 pm
$
0
0
 程式設計的朋友們有福囉!!Microsoft Visual Basic 2008 Express Edition比vb6企業版更具有強大的配備,歡迎各位回覆下載
http://xiangyu066.byethost5.com/blog/?p=88
↧
Search

[求助]請幫我看看哪裡出錯~~

February 4, 2009, 10:43 am
$
0
0

設計一程式在表單上，每隔一秒鐘就切換不同的歡迎用語(歡迎光臨或謝謝惠顧)

以下是我寫的，請問是哪裡有問題??

Dim flag


Private Sub tmrT_Timer()
   Print flag
  If flag = 0 Then
    lblWelcome = "歡迎光臨!"
    flag = flag + 1
  End If
 
  If flag = 1 Then
    lblWelcome = "謝謝惠顧!"
    flag = flag - 1
  End If
 
End Sub

 

 

↧

[求助]請問各位先進我想了快3小時還是想不出來

March 18, 2009, 3:02 pm
$
0
0
請問各位先進，這是我來測驗for迴圈的一個小程式

條件就是只要輸入任意數字(小於100)，就從輸入數字開始加到100的總和

但我怎麼輸入其他數字結果總和都是101

我的邏輯概念不好，請各位指導一'二。。謝謝 


Sub Main()
        Dim i As Integer   '輸入值
        Dim z As Integer  '總和
        Console.Write("請輸入起始值:")
        i = Console.ReadLine()
        For i = i To 100 Step 1
            z = i + 1
        Next
        Console.WriteLine("總和=" & z)   '結果
        Console.Read()
    End Sub
↧
↧

有沒有高手要和我ㄧ起製作遊戲

May 11, 2009, 11:37 pm
$
0
0
        哈摟 各位高手大大們

                          因為最近迷上製作 遊戲( 目前這邊只有 3d製圖&配樂 兩人 卻缺少了程式高手來幫忙和)

                        所以擅長程式的大大 (c++, vb 或是其他3d遊戲製作高手 歡迎跟我啦賽)
              或是擅長寫劇本的 也歡迎跟我聯絡呀
↧

Visual Basic 6.0 找不到檔案 DAO350

May 15, 2009, 8:14 pm
$
0
0
Microsoft Visual Basic 6.0 正體中文專業版
我開啟的時候 卻出現
找不到檔案 DAO350.DLL
這是什麼意思啊 該怎麼解決
可以麻煩給這個檔案的下載點嗎
因為其他的相關問題都要用其他軟體修復
又都是國外網站
很麻煩

麻煩一下囉!
感謝
↧

請高手幫我看看我的程式碼

May 16, 2009, 11:46 am
$
0
0

 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim j As String
        Dim i As Integer
        Dim k As Integer
        Dim x, a, b As Integer
        a = 0
        b = 0
       x = x + 1
        j = TextBox1.Text
        If Len(j) <> 4 Then
            MsgBox("輸入錯誤，請重新輸入,不可輸入重複數值")
        End If
        For i = 0 To 9
            For k = 0 To 9
                If i = k Then
                    If (i) = (k) Then
                        a = a + 1
                    End If
                End If
                If i <> k Then
                    If (i) = (k) Then
                        b = b + 1
                    End If
                End If
            Next k
        Next i

        TextBox2 = a & "A" & b & "B" & 
    If a = 4 Then
        MsgBox("恭喜你答對了(by elong)", MsgBoxStyle.OkOnly)
            TextBox2 = "j"
           
           
    End If
End Sub


那兩行我圈起來的部份有高手可以教我怎麼修改嗎？

↧

[好康] 參加就送3G上網3個月免費:微軟Windows Mobile創意點子王 + WM手機軟體開發達人大賽

June 19, 2009, 4:44 pm
$
0
0
Aloha! 各位版友們對於炎炎夏日有什麼計畫呢？阿宅要來分享一個「在冷氣房想Windows Mobile手機體軟創意，就能拿到3個月mPro 3G免費上網，還有機會得到1萬元獎金+HTC Diamond2手機」的活動 (台灣微軟主辦)！

如果你會寫Windows Mobile軟體程式，除了上面說的這些好康之外，還有機會得到25萬元的超高獎金喔！

好，說了這麼多，想瞭解這是一個怎麼樣的活動嗎？請看(聽)阿宅娓娓道來：


好康一
活動名稱：Windows Mobile手機創意點子王大賽
活動簡介：在2009/7/10 (第一梯次)與2009/8/10 (第二梯次)之前，將您Windows Mobile手機應用程式的狂想點子，以文字、圖示、影音等任何方式說明呈現，繳交到活動網站
活動獎勵：前三名創意點子王，可獲得1萬元獎金+ HTC Touch Diamon2手機，獲得網友票選人氣獎的點子王，還可獲得微軟Arc滑鼠一支喔
參加獎品：凡參加創意點子王活動，即可獲得中華電信mPro 3G上網3個月免費體驗券
活動網頁：http://www.microsoft.com/taiwan/promo/wmcontest/idea_note.aspx


好康二
活動名稱： Windows Mobile 手機軟體開發達人大賽
活動簡介：2009/9/18以前，繳交程式作品，進入初選，初選晉級團隊(或個人)，於2009/10/17進行決賽簡報，最後選出前三名與優選兩名
活動獎勵：第一名獎金25萬元，第二名獎金15萬元，第三名獎金5萬元，優選獎金1萬元
參加獎品：凡參加手機軟體開發達人大賽，即可獲得中華電信mPro 3G上網3個月免費體驗券
活動網頁： http://www.microsoft.com/taiwan/promo/wmcontest/develop_note.aspx
額外好康：入選團隊，還可獲得微軟的技術顧問，以及協助軟體上線到Windows Marketplace for Mobile販售，收益歸原開發團隊所有~



有好點子了嗎？趕快召集三五好友，一起動動腦，想想平時手機使用情境，輕鬆把大獎統統帶回家吧！XD 阿宅有個朋友提議<GPS幸福配對(?!)軟體>，至於內容怎麼發想設計，就留給大家無限想像空間囉！>///<


- 微軟阿宅 | 阿宅噗浪
↧
↧

旋轉點陣圖在 Visual Basic 中

July 25, 2009, 3:21 pm
$
0
0
程式的步驟
  1. 執行 Visual Basic for Windows，或在 [檔案] 功能表上選擇新的專案 (ALT、 F、 N) 如果 Visual Basic for Windows 已在執行。 根據預設，會建立 Form1。
  2. 將兩個名為 Picture1 和 Picture2 Form1 上的圖片方塊。 將點陣圖指派給 Picture1 的圖片] 屬性中。
  3. 將兩個圖片方塊的 ScaleMode 屬性設定為 3 個像素。
  4. 將 Picture1 的 AutoSize 屬性設定為 True (1) 中。
  5. 您可以設定 Picture1 的 Picture2 AutoRedraw 屬性為 True (1)。
  6. 將名為 Command1 Form1 上的命令按鈕。
  7. 如果要在 Command1_Click 事件程序中，輸入下列程式碼：
' Example of how to call bmp_rotate.
     Sub Command1_Click ()
         Const Pi = 3.14159265359

         For angle = Pi / 6 To 2 * Pi Step Pi / 6
            picture2.Cls
            Call bmp_rotate(picture1, picture2, angle)
         Next
     End Sub

  • 在 [一般宣告區段中，輸入下列程式碼： 
         ' bmp_rotate(pic1, pic2, theta)
     ' Rotate the image in a picture box.
     '   pic1 is the picture box with the bitmap to rotate
     '   pic2 is the picture box to receive the rotated bitmap
     '   theta is the angle of rotation
     '

     Sub bmp_rotate (pic1 As Control, pic2 As Control, ByVal theta!)
       Const Pi = 3.14159265359
       Dim c1x As Integer  ' Center of pic1.
       Dim c1y As Integer  '   "
       Dim c2x As Integer  ' Center of pic2.
       Dim c2y As Integer  '   "
       Dim a As Single     ' Angle of c2 to p2.
       Dim r As Integer    ' Radius from c2 to p2.
       Dim p1x As Integer  ' Position on pic1.
       Dim p1y As Integer  '   "
       Dim p2x As Integer  ' Position on pic2.
       Dim p2y As Integer  '   "
       Dim n As Integer    ' Max width or height of pic2.

       ' Compute the centers.
       c1x = pic1.scalewidth / 2
       c1y = pic1.scaleheight / 2
       c2x = pic2.scalewidth / 2
       c2y = pic2.scaleheight / 2

       ' Compute the image size.
       n = pic2.scalewidth
       If n < pic2.scaleheight Then n = pic2.scaleheight
       n = n / 2 - 1
       ' For each pixel position on pic2.
       For p2x = 0 To n
          For p2y = 0 To n
             ' Compute polar coordinate of p2.
             If p2x = 0 Then
               a = Pi / 2
             Else
               a = Atn(p2y / p2x)
             End If
             r = Sqr(1& * p2x * p2x + 1& * p2y * p2y)

             ' Compute rotated position of p1.
             p1x = r * Cos(a + theta)
             p1y = r * Sin(a + theta)

             ' Copy pixels, 4 quadrants at once.
             c0& = pic1.Point(c1x + p1x, c1y + p1y)
             c1& = pic1.Point(c1x - p1x, c1y - p1y)
             c2& = pic1.Point(c1x + p1y, c1y - p1x)
             c3& = pic1.Point(c1x - p1y, c1y + p1x)
             If c0& <> -1 Then pic2.PSet (c2x + p2x, c2y + p2y),c0&
             If c1& <> -1 Then pic2.PSet (c2x - p2x, c2y - p2y),c1&
             If c2& <> -1 Then pic2.PSet (c2x + p2y, c2y - p2x),c2&
             If c3& <> -1 Then pic2.PSet (c2x - p2y, c2y + p2x),c3&
          Next
          ' Allow pending Windows messages to be processed.
          t% = DoEvents()
       Next
     End Sub
  • 將點陣圖影像指派給 Picture1 圖片屬性。
  • 若要啟動程式，請按 F5，然後按一下 [Command1] 按鈕]。 程式會旋轉 30 度的 Picture1 影像，並放在 Picture2 的旋轉的影像。 它會繼續 360 度繪製影像在連續的倍數，30 度旋轉，直到它有旋轉的圖片。
    • 要儲存新點陣圖建立 Picture2，您可以使用下列陳述式：
    SavePicture Picture2.Image、 filename.bmp 」

    ↧
    Search

    VB 6.0 計算機的問題 =.=

    August 3, 2009, 11:07 am
    $
    0
    0
     我想要問一下

    vb的 計算機 該如何編寫= ="

    如果說我在上面拉出三個〔text〕
    跟兩個按鈕的物件　＝　＝

    ∣－－－－－－－－－－－－－－－－∣
    ∣text1 ＋ text2　 ＝   text3        ｜
    ∣〔　　〕＋〔　　〕　＝　〔　　〕｜
    ∣　　　　　　　　〔計算〕〔存檔〕｜
    ∣－－－－－－－－－－－－－－－－∣


    如果說

    text1 + text2 的數字　會在　text3的框框出現
    該怎麼寫　＝　＝？！

    Ｑ１：如果說我要按了計算按鈕之後
    　　　就把數字相加在　text3
    　　　要在計算的按鈕裡面寫什麼？

    Ｑ２：儲存按鈕　＝　儲存計算的答案
    　　　那我要在儲存按鈕裡面寫什麼
    　　　才可以把數字儲存到〔桌面〕ｏｒ〔Ｃ槽〕？
    　　　儲存的檔名，我自己訂〔123〕
    　　　這樣子要寫什麼＝　＝？

    拜託各位囉

    最近很想摸vb  在新視窗檢視

    檔案麻煩寄e-mail給我 >"<

    〔moco5360@gmail.com〕

    拜託各位 大俠漢堡堡了 在新視窗檢視
    ↧

    關於在VB6欄位空白的問題

    August 29, 2009, 10:47 am
    $
    0
    0

    是這樣子，小弟目前在弄學校的專題，
    我們是由MYSQL資料庫把資料匯整到Access檔(經由ACCESS抓取資料)，
    但是現在要把那些檔案輸出寫到一個excel檔裡面，但是目前有部分欄位是空白...
    所以小弟卡關了。
    sql_str = "SELECT * FROM course_infromation"
    course_infromation這個就是我們在access其中一個資料表  
    我們寫入資料的方式就是
    x1Sheet.cells(4,2)=rs.Fields("a")
    前面是寫入的一個excel檔，(4,2)就表示他寫進去的那一個位址。
    a就是其中的欄位
    但是我們a欄位的資料不只有1筆，而有些又是空白(沒辦法做更改)
    跳出的錯誤:Null的方法使用不正確 ...
    麻煩高手救命一下吧@@

    ↧

    [分享][下載]Visual Basic 6 企業版 + Service Pack 6 + MSDN LibraryVisual Studio 6.0 版

    November 18, 2009, 9:05 am
    $
    0
    0
    本文章內容經過特殊加密，請到論壇直接檢視
    ↧
    ↧

    [求助]vb.net問題

    November 26, 2009, 1:51 pm
    $
    0
    0

    請問↓用VB.net來寫

    要更改些什麼呢??

    用vb.net照這樣寫
    都會錯誤

    請問是哪裡錯了 請高手解答！


    Dim FN0, FN1, FN2, FN3, FN4
    Dim FS0, FS1, FS2, FS3, FS4


    Private Sub Combo1_Click()

    idx = Combo1.ListIndex
    '-----------------------------------
    Select Case idx
        Case 0
            RichTextBox1.SelFontName = FN0
            RichTextBox1.SelFontSize = FS0

        Case 1
            RichTextBox1.SelFontName = FN1
            RichTextBox1.SelFontSize = FS1
        Case 2
            RichTextBox1.SelFontName = FN2
            RichTextBox1.SelFontSize = FS2
        Case 3
            RichTextBox1.SelFontName = FN3
            RichTextBox1.SelFontSize = FS3
        Case 4
            RichTextBox1.SelFontName = FN4
            RichTextBox1.SelFontSize = FS4
           
    End Select

    RichTextBox1.SetFocus
       


    End Sub

     

    Private Sub Combo2_Click()
    idx = Combo2.ListIndex
    '-----------------------------------
    Select Case idx
        Case 0
            RichTextBox1.SelColor = vbRed
        Case 1
            RichTextBox1.SelColor = vbBlue
        Case 2
            RichTextBox1.SelColor = vbYellow
        Case 3
            RichTextBox1.SelColor = vbBlack
    End Select
    RichTextBox1.SetFocus

    End Sub

    Private Sub Combo3_Click()
    idx = Combo3.ListIndex
    '-----------------------------------
    Select Case idx
        Case 0
            RichTextBox1.SelBold = False
            RichTextBox1.SelItalic = False
        Case 1
            RichTextBox1.SelBold = True
            RichTextBox1.SelItalic = False
        Case 2
            RichTextBox1.SelBold = False
            RichTextBox1.SelItalic = True
        Case 3
            RichTextBox1.SelBold = True
            RichTextBox1.SelItalic = True
    End Select
    RichTextBox1.SetFocus

    End Sub

    Private Sub Form_Load()
    Combo1.AddItem "新細明體  9"
    Combo1.AddItem "新細明體 12"
    Combo1.AddItem "標楷體   14"
    Combo1.AddItem "標楷體   16"
    Combo1.AddItem "Arial    18"
    '----------------------------------
    Combo2.AddItem "紅色"
    Combo2.AddItem "藍色"
    Combo2.AddItem "黃色"
    Combo2.AddItem "黑色"
    '----------------------------------
    Combo3.AddItem "標準"
    Combo3.AddItem "粗體"
    Combo3.AddItem "斜體"
    Combo3.AddItem "粗斜體"

    FN0 = "新細明體"
    FS0 = 9
    FN1 = "新細明體"
    FS1 = 12
    FN2 = "標楷體"
    FS2 = 14
    FN3 = "標楷體"
    FS3 = 16
    FN4 = "Arial"
    FS4 = 18
    End Sub

    ↧

    [下載]Visual Basic 2008 完整破解版

    December 28, 2009, 2:05 pm
    $
    0
    0

    檔案位置：★HN.uix２★/檔案分享/共享軟體/

    檔案名稱：VS2008ProEditionCHT.iso

    檔案格式：ISO　‥需要用酒精開啟或者RAR

    檔案大小：3.66 GB

    檔案存放空間：http://ts5168.sytes.net/


    下載後請測試後24H內刪除。謝謝。






    ↧

    [下載]VB6 - 反編譯的軟體(完整版含KEY)

    December 28, 2009, 2:07 pm
    $
    0
    0
    檔案位置：★HN.uix２★/檔案分享/共享軟體/

    檔案名稱：VB6 反編譯破解版.rar

    檔案格式：RAR

    檔案大小：1.94MB

    檔案說明：只要是VB6的程式(EXE，都可以使用這套軟體觀看原始碼)

    檔案存放空間：http://ts5168.sytes.net/


    下載後請測試後24H內刪除。謝謝。




    ↧

    [推薦]VB.Net簡單易懂的教學網站

    July 20, 2010, 9:39 am
    $
    0
    0
    Happy VB開心農莊 http://www.happyvb.twbbs.org/
    ↧
    Search
    ↧

    vb60

    August 14, 2010, 10:51 pm
    ↧

    OWC Dynamic Charting: 把 Excel 搬到網頁上的技術

    September 13, 2010, 12:46 pm
    ↧

    Visual Basic .Net 0.0

    October 22, 2010, 10:42 pm
    ↧

    誰已經下載好Visual Basic 6企業版+Service Pack 6+MSDN LibraryVisual Studio 6.0版

    December 29, 2010, 10:05 pm
    ↧
    ↧

    [求助]

    October 1, 2011, 6:24 pm
    $
    0
    0
    大家好！

    我是新來的會員，由於兒子今年剛就讀資料處理科急需下載Visual Basic V6.0 繁體中文版練習，可是以下網址裡的下載失效～出現無法顯示網頁，希望各位前輩發揮善心，幫幫我吧！感謝大家！

    http://bbs.flash2u.com.tw/dispbbs.asp?BoardID=86&ID=34672&replyID=&skin=1
    ↧

    那些和大家唱反?的情?明星

    October 15, 2011, 3:49 pm
    $
    0
    0

     

    　　文章?伊琍
    　　
    　　?年?伊琍和文章?婚的?候，?伊琍因?在《?斗》中的精彩演出，?身一?女星，而文章?然在《?斗》中有突出表?，可是人气?不及?伊琍。而?出道不久的文章??得稚嫩，?伊琍吃文章?棵嫩草，?所有人都?他?的?情不看好牙??痛怎么?。可是???去多年，????圈最有名的姐弟?情?依?保持????的恩?，?得?得！

        李?杰利智
    　　
    　　?年的李?杰是??江?，?然是?地人?在香港影??出了一?血路，是最?座的男星之一。而利智的美貌?年是?整?香港?之?狂啊，甚至是有黑道背景的??圈大?向??也拜倒在利智的石榴裙下。?引起了向太的?恨，向利智下了江湖追?令，李?杰?了保利智，不?答?多?向氏拍?，??了利智?妻?子，二人的?合也?受指?。如今二十多年?去了，李?杰和利智的感情?未?，也算是?得。
    　　
        ?杰?娜
    　　
    　　??取得?年快男第四名的男星?杰，?在的人气?在?年快男三?之上，?寒很多人都??杰之所以能有今日的成就，是因??娜的?系，甚至??杰?牲“色相”勾引?娜，才能取得今日的成?，所以?杰和?娜的?情一直不被人看好。可是?种种?象和??情?中我?都能了解到，?杰和?娜是真心相?的，?然有炒作?情的嫌疑，可是?也不能否?了他??的真?
    　　
    　　蔡少芬??
    　　 
    　　女星蔡少芬是TVB的?家花旦，也是一??星，而她的老公???是?地的三?男星，名不??，牙疼怎么?而蔡少芬年??比??要大。所以二人的?合?一?始就不被世人看好，甚至有不少人指???是被人包?的。可是事?上???然与蔡少芬?婚了，?并未靠蔡少芬的名气上位，依?一步一??印的做好自己的事，而二人?然也有?吵，?也恩??比。
    　　
    　　

    ↧

    資料庫管理

    November 19, 2011, 8:33 pm
    $
    0
    0
    我要作一個專題 專題計畫書都打好了 還有資料庫做了一半 可是不知道怎麼連結VB 變成一個管理系統 有沒有可以幫幫我
    ↧
    Search

    求VB6現在能下載的!!

    December 17, 2011, 11:31 am
    $
    0
    0
    我找的VB6現在都不能下載

    就算可以下載

    也不能安裝


    希望大大能給我現在能下載的VB6
    ↧
    ↧

    VB6

    February 19, 2012, 7:46 pm
    ↧

    我不漂亮 但是很溫柔

    November 14, 2012, 10:32 pm
    $
    0
    0
    安安喔 我叫佳瑤 今年20歲∩_∩ 在校學生目前讀大2 身高163體重 49胸圍32D 由於生活在一個貧困家庭 現在有急需用錢 只好偷偷出來在網絡上找. 我的消費金額是4000 3小時 3000 2小時 絕對配合 不挑客人 只要你有￥￥ 虎爛鬼勿加,無誠勿擾 自備制服.護士服.妹妹會滿足你 ㄉ慾望√ 有誠意幫我的可以加我 MSN ： ljyljy1992@hotmail.com 可以 先看看我 及時：ljyljy1992 沒誠意不要亂我 感恩 http://www.wretch.cc/album/ljyljy1992
    ↧

    令人驚豔的Excel程式庫 - ClosedXML

    January 3, 2013, 7:10 pm
    $
    0
    0
    令人驚豔的Excel程式庫 - ClosedXML

        
    作者：微軟 MVP 黑暗執行緒

    出處：http://blog.darkthread.net/post-2012-12-28-closedxml.aspx

    處理ReportViewer匯出檔的比武大會 上，NPOI與EPPlus都敗下陣來，Open XML SDK雖然勝出，但在應用呼叫上繁瑣難搞，用起來總覺礙手礙腳。在研究Open XML SDK設定工作表保護 的過程，發現新大陸 - 另一套Open Source的Excel程式庫，ClosedXML 。  

    簡單整理ClosedXML特色如下:  [list=1][*]程式庫很俏皮地命名為ClosedXML，事實它高度依賴Open XML
    SDK，在引用時，程式必須一併參考DocumentFormat.OpenXml.dll。ClosedXML切入的角度是為Open XML
    SDK提供容易操作的程式介面，而事實證明它做得很成功，程式介面的確非常簡潔易用。 [*]以Open XML SDK為基礎，所以只支援xlsx，不支援xls格式。[*]CodePlex上就文件與範例，內容十分完整 ，很容易上手。[*]支援NuGet安裝，加入時會一併帶入Open XML SDK參照，安裝簡單。     


    圖片：


     [*]ClosedXML的很多Method在設計上仿照Excel VBA慣例，例如: sheet.Cell("A1").Value=Boo"、sheet.Range("A1:C5")選取範圍，用起來相當簡單直覺。 [*]很重要的一點，先前讓EPPLUS及NPOI灰頭土臉的ReportViewer匯出檔測試，ClosedXML輕易過關，產出結果與Excel相容，程式碼又比Open XML SDK簡短易理解，大勝!  (以下範例順便展示了保護工作表功能，一行搞定。)            排版顯示純文字       

           
    以下內容為程式語法:
        //ClosedXML

                var wb=new XLWorkbook(src);

                var ws=wb.Worksheets.First();

                ws.Cells("A1").Value=已修改";

                ws.Protect("LetMeEdit");

                wb.SaveAs(@"d:\temp\closedXml.xlsx");

          
        
       
    圖片：

     [/list]



    初步評估，ClosedXML支援不少Excel VBA風格的簡潔API，在ReportViewer匯出檔案相容性測試又比NPOI及EPPlus好，看起來很值得一試!



    最後不能免俗地，比照NPOI 、EPPlus ，要用ClosedXML試做網站檔案結構轉Excel的範例:


      排版顯示純文字
           
    以下內容為程式語法:
       
            /// &lt;summary&gt;
            /// 將目錄下的目錄檔案結構匯出成Excel工作表
            /// &lt;/summary&gt;
            /// &lt;param&gt;要匯出的目錄路徑&lt;/param&gt;
            /// &lt;param&gt;匯出Excel路徑&lt;/param&gt;
            /// &lt;param&gt;過濾函數，傳入Path進行判斷，傳回true時表排除&lt;/param&gt;
            /// &lt;returns&gt;&lt;/returns&gt;
            public static void WebTreeToExcel(
                string dirPath, string excelPath,
                Func&lt;string, bool&gt; filter=null)
            {
                //將目錄結構整理成清單
                List&lt;WebItem&gt; list=new List&lt;WebItem&gt;();
                explore(list, dirPath, 0);
                //建立Excel
                XLWorkbook workbook=new XLWorkbook();
                var sheet=workbook.Worksheets.Add("Site Tree");
                int colIdx=1;
                foreach (string colName in "Path;File;Description".Split(';'))
                {
                    sheet.Cell(1, colIdx++).Value=colName;
                }
               //修改標題列Style
                var header=sheet.Range("A1:C1");
                header.Style.Fill.BackgroundColor=XLColor.Green;
                header.Style.Font.FontColor=XLColor.Yellow;
                header.Style.Alignment.Horizontal=XLAlignmentHorizontalValues.Center;
                int rowIdx=2;
                foreach (var item in list)
                {
                    //若bypass檢測傳回true，則略過該筆
                    if (filter != null &amp;&amp; filter(item.Path))
                        continue;
                    //將Path放在第一欄(稍後隱藏)
                    sheet.Cell(rowIdx, 1).Value=item.Path;
                    //存入檔名或目錄名
                    sheet.Cell(rowIdx, 2).Value =
                        new String(' ', item.Layer * 4) + item.Name;
                    if (item.IsFolder)
                    {
                        sheet.Cell(rowIdx, 2).Style.Font.FontColor=XLColor.Blue;
                    }
                    rowIdx++;
                }
                //第一欄隱藏
                sheet.Column(1).Hide();
                //自動伸縮欄寬
                sheet.Column(2).AdjustToContents();
                sheet.Column(2).Width += 2;
                sheet.Column(3).Width=50;
                //寫入檔案
                workbook.SaveAs(excelPath);
            }
           

     

    程式簡潔度與EPPlus相近，結果也正確無誤，ClosedXML勝出之處在於產出檔與Excel相容度較高，是一套值得推薦的Excel程式庫。


    圖片：
          
                
                
     
     
     
     
    ↧

    [求助][請教] VB6使用webcam 解讀QR code

    April 19, 2013, 2:28 am
    $
    0
    0
     我有一個webcam 簡單程式  現在想加入QR code實時解讀~

    找了很多網站都沒有 例可以參考~

    現附上一個webcam progarm
    謝謝~

    Option Explicit
    Const WS_CHILD = &H40000000
    Const WS_VISIBLE = &H10000000
    Const WM_CAP_START As Long = &H400
    Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10
    Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41
    Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50
    Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52
    Const WM_CAP_SET_SCALE As Long = WM_CAP_START + 53
    Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
    (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long
    Private Declare Function SendMessageAsLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
     ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim CamVc1 As Long, ReCam As Long
    Private Sub Form_Load()

      '160x120:176x144:320x240:352x288:640x480        (建立CaptureWindow)
    CamVc1 = capCreateCaptureWindow("Capture Windows", _
    WS_CHILD Or WS_VISIBLE, 380, 40, 320, 240, Me.hwnd, 0)
    If CamVc1 = 0 Then
    Exit Sub
    End If
    ReCam = capDriverConnect(CamVc1, 0)
    ReCam = capPreviewRate(CamVc1, 50)              '每秒20張(=1000/20)
    ReCam = capPreview(CamVc1, True)
    Me.Caption = "Capture Windows"
    End Sub


    Function capDriverConnect(ByVal hCapWnd As Long, Optional ByVal i As Long = 0&) As Boolean
    capDriverConnect = SendMessageAsLong(hCapWnd, WM_CAP_DRIVER_CONNECT, i, 0&)
    End Function
    Function capDlgVideoFormat(ByVal hCapWnd As Long) As Boolean
    capDlgVideoFormat = SendMessageAsLong(hCapWnd, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
    End Function
    Function capPreview(ByVal hCapWnd As Long, ByVal f As Boolean) As Boolean
    capPreview = SendMessageAsLong(hCapWnd, WM_CAP_SET_PREVIEW, -(f), 0&)
    End Function
    Function capPreviewRate(ByVal hCapWnd As Long, ByVal wMS As Long) As Boolean
    capPreviewRate = SendMessageAsLong(hCapWnd, WM_CAP_SET_PREVIEWRATE, wMS, 0&)
    End Function


    ↧
    ↧

    [求助]有關VB6.0封裝問題

    December 12, 2013, 8:02 pm
    $
    0
    0
     小弟最近用VB6.0寫了一個小程式~可是封裝完畢到別台電腦安裝時出現 "因為某些系統檔並非最新版，導致無法繼續安裝。
    小弟也更新到SP6了還是沒法
    ↧

    [軟體新聞]全球程式開發語言排行榜：VB.NET首次殺入前十

    February 10, 2014, 7:17 pm
    $
    0
    0
    [軟體新聞]全球程式開發語言排行榜：VB.NET首次殺入前十

    類型：
    軟體新聞



    全球程式開發語言排行榜：VB.NET首次殺入前十

    分類：軟體新聞

    Tiobe二月份程式開發語言排行榜出爐，最大的亮點就是VB.NET首次殺入排行榜前十。這一成績令人吃驚，因為很多軟體工程師都不喜歡VB.NET，而且微軟近年來也放慢了VB.NET的腳步，一個證據就是Visual Studio 2013中沒有包含任何一個新的VB.NET語言功能。然而，VB.NET開年大吉取得佳績。

    （TIOBE開發語言排名是一種程式開發語言的流行程度的指標，該指標每月更新一次。市場占有率是根據世界各地的熟練工程師、課程和第三方提供者的資料統計來的，用於計算市場占有率的流行的搜尋引擎包括Google(谷歌)、MSN、雅虎、維基百科、YouTube和百度。TIOBE指標並不代表哪個是最好的程式開發語言或哪個語言寫的程式碼行多。）



    在新視窗檢視



    來源：驅動之傢



    ↧
    Search

    [求助VB程式碼如何轉成IL程式碼?

    April 9, 2014, 4:23 pm
    $
    0
    0
    小弟最近迷上修改DLL檔案
    小弟我只會一些VB或是C#的知識
    費了九牛二虎之力好不容易改好了一些小地方
    為了測試便想轉換成DLL檔
    無奈於使用的語言都是IL
    實在不知道要如何轉換成IL在壓縮成DLL檔案


    有請哪位神人可以住我一臂之力
    ↧

    [討論]vb可以做框架嗎

    September 17, 2015, 3:41 pm
    $
    0
    0
    我一直想做零資本創業看看是不是真的可行～又一直找不到有共同創業的夥伴～所以設網站也要自己來～
    我是個程式白痴完全不懂但我還是想架一個小小的商場平台又不想要有別人的廣告出現
    請問各位大大～vb是否可以做一個框架供用戶下載～
    而網頁資訊我存放在google雲端硬碟裡～當時使用者打開VB程式框架
    就能看見我網頁上的知訊～感覺就像同步雲端的意思～有可能性嗎～
    ↧
    ↧

    [求助]各位神手大大請幫幫忙急救PC～

    September 30, 2015, 12:40 am
    $
    0
    0
    上個月我3個讀中小學姪子放暑假回來玩.剛好樓下客廳.辦公室各有二台桌上電腦.用來畫圖的電腦不準他們使用.其餘三台都在玩遊戲早晨4點多就偷爬起床一路玩到晚上11-12點～不是怕玩壞電腦.是小鬼都會亂下載一大堆程式.再三叮嚀我畫圖用的電腦不能碰.出門二天回來還是中獎整個電腦桌面從左到右差6個就中全燈獎.氣歸氣還是要刪不必要的東西..這下好了.不管是網頁還是開啟任何程式都只能打英文.打不出中文了.就唯獨Google的翻譯網頁可以輸入中文.電腦本身的輸入法都還在要切換都沒動靜用滑鼠點任何一個也沒作動.還有連網頁瀏覽器都打不開.要用下圖方式才打得開.還有下載任何程式都不能安裝.我想開啟任何一個程式也是都會開啟檔案程式的視窗.如下圖.請問各位大大有沒得救ㄚ.系統還原的備份也都找不到.該如何是好.恐怖的是連桌面的垃圾桶都不知道去哪了
    圖片：未命名.png

    ↧

    vb6 不同project呼叫

    March 3, 2016, 2:42 pm
    $
    0
    0

    我想請問
    有兩個proiect a,b
    a的form要呼叫b的form
    請問要怎麼用vb6寫?
    謝謝~~~

    ↧

    [討論]2005與6.0的比較

    August 22, 2007, 6:07 pm
    $
    0
    0
    想請教一下各位大大 visual basic 2005與6.0有何不同????
    ↧

    [下載] VB 6.0 的 載點...

    September 2, 2007, 8:43 pm
    $
    0
    0
    看過很多大大，都給了這個載點: http://home.gigigaga.com/sityhunter/Visual%20Basic6.0.zip 都說這是 Visual Basic6.0 已經破解的繁體程式.... 但是....下載卻是沒用??? 為什麼???
    ↧
    ↧

    VC6下載 一定可以的

    July 27, 2007, 12:34 am
    $
    0
    0
    http://soft.lwjy.net/SoftDown.asp?ID=245 大陸的網站 可以抓~要用續傳~還蠻快的 是簡體中文的 但他有英文版在裡面 所以沒差 這篇文章最後由 azsxdcfvgb 在 2007/07/27 00:39:37 重新編輯。
    ↧
    Search
    Viewing latest articles
    Browse all 74 Browse latest View live
    Search