主頁 > 軟體工程 > 求大神幫忙修改一下源代碼！

求大神幫忙修改一下源代碼！

2020-09-20 14:55:26 軟體工程

源代碼地址：http://pan.baidu.com/s/1sjywCH3


怎么讓下載地址為一個全域變數，而不是文本框。 下載路徑也不用彈出這種提示框

直接為 App.Path & "\"就可以。
表單代碼：


Option Explicit


Private downerr As Boolean
Private downing As Boolean
Private downtime As Long


Private Sub Command1_Click()
If Len(txtUrl.Text) < 1 Then
MsgBox "請輸入要下載的檔案路徑！", vbInformation, "檔案下載器"
txtUrl.SetFocus
Exit Sub
End If
On Error GoTo TrackErr
With cdgFile
.FileName = getFileName(txtUrl.Text)
.Filter = "所有檔案(*.*)|*.*"
.CancelError = True
.ShowSave
If Len(.FileName) > 0 Then
downerr = False
Command1.Enabled = False
Label1.Caption = "正在下載檔案：" & .FileName & "，" & 0 & "/" & 0 & "位元組。"
Caption = "開始下載。。。"
txtUrl.Locked = True
downing = True
downtime = 0
Label3.Caption = "用時：0 秒。"
Timer1.Enabled = True
DoEvents
Downloader1.BeginDownload txtUrl.Text, .FileName
End If
End With
Exit Sub
TrackErr:
If Err.Number <> 32755 Then MsgBox "發生了錯誤！原因：" & Err.Description, vbCritical, "下載錯誤！"
Err.Clear
End Sub


Private Sub Downloader1_DownloadComplete(ByVal maxbytes As Long, ByVal sLocalFile As String)
Timer1.Enabled = False
Command1.Enabled = True
txtUrl.Locked = False
Caption = "檔案下載結束"
If maxbytes > 0 Then
MsgBox "檔案下載完成！大小：" & maxbytes & "位元組。", vbInformation, "檔案下載器"
If Not downerr Then txtUrl.Text = ""
End If
txtUrl.SetFocus
downing = False
End Sub


Private Sub Downloader1_DownloadError(ByVal sLocalFile As String, ByVal ErrDescription As String)
downerr = True
MsgBox sLocalFile & "下載錯誤！" & vbCrLf & "原因：" & vbCrLf & ErrDescription, vbExclamation, "檔案下載器"
End Sub


Private Sub Downloader1_DownloadProgress(ByVal curbytes As Long, ByVal maxbytes As Long, ByVal sLocalFile As String, ByVal lSpeed As Long, ByVal lRemnantTime As Long)
With ucGuage1
.Max = maxbytes
.Value = curbytes
End With
Label1.Caption = "正在下載檔案：" & sLocalFile & vbCrLf & "下載速度：" & ToFormatByteToString(lSpeed) & "每秒" & vbCrLf & "剩余時間：" & ToFormatTimeToString(lRemnantTime) & vbCrLf & "下載進度：" & ToFormatByteToString(curbytes) & "/" & ToFormatByteToString(maxbytes) & "。"
Caption = "正在下載：完成 " & Format(curbytes / maxbytes * 100, "0.00") & " %。。。"
DoEvents
End Sub


Private Function ToFormatByteToString(ByVal num As Long) As String
Select Case num
Case Is < 0
Case 0 To 1023
ToFormatByteToString = CStr(num) & " 位元組"
Case 1024 To 1048575
ToFormatByteToString = Format(num / 1024, "0.000") & " K 位元組"
Case 1048576 To 1073741823
ToFormatByteToString = Format(num / 1048576, "0.000") & " M 位元組"
Case Else
ToFormatByteToString = Format(num / 1073741824, "0.000") & " G 位元組"
End Select
End Function


Private Function ToFormatTimeToString(ByVal num As Long) As String
Dim mh As Long, mm As Long, ms As Long, mstr As String
mh = num \ 3600 '小時
mm = (num Mod 3600) \ 60 '分鐘
ms = num Mod 60 '秒數
If mh > 0 Then mstr = mh & "小時"
If mm > 0 Then mstr = mstr & mm & "分鐘"
If ms > 0 Then mstr = mstr & ms & "秒"
If Len(mstr) < 1 Then mstr = "0秒"
Debug.Print "時間：" & num & "秒，" & mstr
ToFormatTimeToString = mstr
End Function


Private Sub Form_Unload(Cancel As Integer)
If downing Then
If MsgBox("正在下載檔案！您確認要退出并放棄當前的下載？", vbOKCancel + vbQuestion, "檔案下載器") = vbCancel Then
Cancel = 1
End If
End If
End Sub


Private Sub Timer1_Timer()
downtime = downtime + 1
Label3.Caption = "用時：" & ToFormatTimeToString(downtime) & "。"
End Sub


Private Sub txtUrl_Change()
txtUrl.ToolTipText = txtUrl.Text
End Sub


Private Sub txtUrl_GotFocus()
With txtUrl
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub


Private Function getFileName(ByVal strPath As String) As String
Dim strTemp As String
If Len(strPath) = 0 Then Exit Function
If InStr(1, strPath, "\") = 0 Then
If InStr(1, strPath, "/") = 0 Then
getFileName = strPath
Else
strTemp = StrReverse(strPath)
getFileName = StrReverse(Mid(strTemp, 1, InStr(1, strTemp, "/") - 1))
End If
Else
strTemp = StrReverse(strPath)
getFileName = StrReverse(Mid(strTemp, 1, InStr(1, strTemp, "\") - 1))
End If
End Function


自定義控制元件代碼：
Option Explicit


Private mtime As Date


Event DownloadProgress(ByVal curbytes As Long, ByVal maxbytes As Long, ByVal sLocalFile As String, ByVal lSpeed As Long, ByVal lRemnantTime As Long)
Event DownloadError(ByVal sLocalFile As String, ByVal ErrDescription As String)
Event DownloadComplete(ByVal maxbytes As Long, ByVal sLocalFile As String)


Dim BytMask(0 To 15) As Long


Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
On Error Resume Next
Dim bytValue() As Byte, fn As Long
If AsyncProp.BytesMax <> 0 Then
fn = FreeFile
bytValue = AsyncProp.Value
Open AsyncProp.PropertyName For Binary Access Write As #fn
Put #fn, , bytValue
Close #fn
Else
RaiseEvent DownloadError(AsyncProp.PropertyName, "檔案大小為零位元組！")
End If
RaiseEvent DownloadComplete(CLng(AsyncProp.BytesMax), AsyncProp.PropertyName)
End Sub


Private Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty)
Dim mspeed As Long, mmax As Long, mread As Long
On Error Resume Next
mmax = AsyncProp.BytesMax
mread = AsyncProp.BytesRead
mspeed = CLng(mread \ DateDiff("s", mtime, Now))
If mmax <> 0 Then
RaiseEvent DownloadProgress(CLng(mread), CLng(mmax), AsyncProp.PropertyName, mspeed, (mmax - mread) \ mspeed)
End If
End Sub


Private Sub UserControl_Initialize()
SizeIt
End Sub


Private Sub UserControl_Resize()
SizeIt
End Sub


Public Sub BeginDownload(ByVal url As String, ByVal sLocalFile As String)
Dim hr As Long, strTemp As String
If Len(url) = 0 Then
MsgBox "指定的URL無效！", vbCritical, "URL無效"
CancelDown sLocalFile
Exit Sub
End If
strTemp = sLocalFile
While Dir(strTemp, vbNormal) <> Empty Or Len(strTemp) = 0
If Len(strTemp) = 0 Then
hr = vbNo
MsgBox "檔案路徑不能為空！", vbExclamation, "錯誤"
Else
hr = MsgBox("檔案已經存在！是否要覆寫原來的檔案？", vbQuestion + vbYesNoCancel, "替換檔案")
End If
Select Case hr
Case vbYes '替換舊檔案
SetAttr sLocalFile, vbNormal
Kill sLocalFile
Case vbNo '不替換
strTemp = InputBox("請重新指定存放路徑！", "重新指定存放路徑", sLocalFile)
If Len(strTemp) = 0 Then
CancelDown sLocalFile
Exit Sub
End If
Case vbCancel
CancelDown sLocalFile
Exit Sub
End Select
Wend
sLocalFile = strTemp
On Error GoTo ErrorBeginDownload
mtime = Now
UserControl.AsyncRead URLEncode(url), vbAsyncTypeByteArray, sLocalFile, vbAsyncReadForceUpdate
Exit Sub
ErrorBeginDownload:
RaiseEvent DownloadError(sLocalFile, Err.Description)
CancelDown sLocalFile
Exit Sub
End Sub


Private Sub SizeIt()
On Error Resume Next
With UserControl
.Width = ScaleX(32, vbPixels, vbTwips)
.Height = ScaleY(32, vbPixels, vbTwips)
End With
Exit Sub
End Sub


Private Sub CancelDown(ByVal strPath As String)
RaiseEvent DownloadComplete(0&, strPath)
End Sub


Public Function URLEncode(ByVal strURL As String) As String
If Len(strURL) = 0 Then Exit Function
Dim strTemp As String, lngTemp As Long
Dim lngLeng As Long, i As Long
lngLeng = Len(strURL)
For i = 1 To lngLeng
lngTemp = CharToAscii(Mid(strURL, i, 1))
Select Case lngTemp
Case 32
strTemp = strTemp & "%20"
Case 0 To 255
strTemp = strTemp & Chr(lngTemp)
Case Else
strTemp = strTemp & "%" & _
IIf(((lngTemp And &HFF00) \ 256) > 15, _
Hex((lngTemp And &HFF00) \ 256), _
"0" & Hex((lngTemp And &HFF00) \ 256)) & "%" & _
IIf((lngTemp And &HFF) > 15, _
Hex(lngTemp And &HFF), _
"0" & Hex(lngTemp And &HFF))
End Select
Next
URLEncode = strTemp
End Function


'將字串中的第一個字符轉換為ASCII碼，保證是正數，因為在某些情況下，負數不好使用
Private Function CharToAscii(ByVal strValue As String) As Long
If Len(strValue) = 0 Then Exit Function
Dim lngChar As Long, lngAscii As Long
lngChar = Asc(Mid(strValue, 1, 1))
Select Case lngChar
Case 0 To 255
CharToAscii = lngChar
Case Is > 255
CharToAscii = lngChar
Case Else
CharToAscii = lngChar + 65536
End Select
End Function


uj5u.com熱心網友回復：

第二個控制元件代碼：Option Explicit

Const MIN_WIDTH = 48 '控制元件最小寬度
Const MIN_HEIGHT = 16 '控制元件最小高度
Const FIX_MARGIN = 2 '控制元件內部固定空間
Const MAX_BORDER_WIDTH = 5 '最大邊框寬度
Const MAX_BORDER_STYLE_VALUE = 5 '最大邊框樣式值

Const m_def_BackColor = vbButtonFace '默認控制元件背景顏色為[按鈕表面]（系統顏色）
Const m_def_ForeColor = vbWindowText '默認控制元件字體顏色為視窗文本（系統顏色）
Const m_def_GuageColor = vbWindowText '默認進度顏色為視窗文本（系統顏色）
Const m_def_ShadowColor = vb3DShadow '默認陰影顏色為3D陰影顏色（系統顏色）
Const m_def_HighlightColor = vb3DHighlight '默認高亮顏色為3D高亮顏色（系統顏色）
Const m_def_BorderStyle = 1 '默認控制元件邊框樣式為凹陷效果
Const m_def_BorderWidth = 1 '默認控制元件邊框寬度為1
Const m_def_Value = 0 '默認進度值為0
Const m_def_Max = 100 '默認最大值
Const m_def_Min = 0 '默認最小值

Dim m_BackColor As OLE_COLOR '控制元件背景顏色
Dim m_ForeColor As OLE_COLOR '控制元件字體顏色
Dim m_GuageColor As OLE_COLOR '控制元件進度顏色
Dim m_ShadowColor As OLE_COLOR '控制元件陰影顏色
Dim m_HighlightColor As OLE_COLOR '控制元件高亮顏色
Dim m_BorderStyle As Integer '控制元件邊框樣式
Dim m_BorderWidth As Integer '控制元件邊框寬度
Dim m_Value As Double '進度值
Dim m_Max As Double '最大值
Dim m_Min As Double '最小值

Dim m_ScaleX As Single, m_ScaleY As Single '

Dim m_ClientWidth As Single '
Dim m_PropertySeted As Boolean '屬性是否初始化

'控制元件背景顏色屬性
Public Property Get BackColor() As OLE_COLOR
    BackColor = m_BackColor
End Property

Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
    If m_BackColor = New_BackColor Then Exit Property
    m_BackColor = New_BackColor
    UserControl.BackColor() = New_BackColor
    Call DrawControlBorder(m_BorderStyle)
    Call PropertyChanged("BackColor")
End Property

'控制元件字體顏色屬性
Public Property Get ForeColor() As OLE_COLOR
    ForeColor = m_ForeColor
End Property

Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
    m_ForeColor = New_ForeColor
    lblValue.ForeColor = New_ForeColor
    Call PropertyChanged("ForeColor")
End Property

'控制元件進度顏色屬性
Public Property Get GuageColor() As OLE_COLOR
    GuageColor = m_GuageColor
End Property

Public Property Let GuageColor(ByVal New_GuageColor As OLE_COLOR)
    m_GuageColor = New_GuageColor
    shpMask.FillColor = New_GuageColor
    shpMask.BorderColor = New_GuageColor
    Call PropertyChanged("GuageColor")
End Property

'控制元件陰影顏色屬性
Public Property Get ShadowColor() As OLE_COLOR
    ShadowColor = m_ShadowColor
End Property

Public Property Let ShadowColor(ByVal New_ShadowColor As OLE_COLOR)
    If m_ShadowColor = New_ShadowColor Then Exit Property
    Call DrawControlBorder(0) '清除以前的邊框
    m_ShadowColor = New_ShadowColor
    Call ShowValue
    Call PropertyChanged("ShadowColor")
End Property

'控制元件高亮顏色屬性
Public Property Get HighlightColor() As OLE_COLOR
    HighlightColor = m_HighlightColor
End Property

Public Property Let HighlightColor(ByVal New_HighlightColor As OLE_COLOR)
    If m_HighlightColor = New_HighlightColor Then Exit Property
    Call DrawControlBorder(0)
    m_HighlightColor = New_HighlightColor
    Call ShowValue
    Call PropertyChanged("HighlightColor")
End Property

'控制元件邊框樣式屬性
Public Property Get BorderStyle() As Integer
    BorderStyle = m_BorderStyle
End Property

Public Property Let BorderStyle(ByVal New_BorderStyle As Integer)
    If m_BorderStyle = New_BorderStyle Then Exit Property
    Call DrawControlBorder(0) '清除以前的邊框
    Select Case New_BorderStyle
    Case Is < 0
        m_BorderStyle = 0
    Case Is > MAX_BORDER_STYLE_VALUE '最大邊框樣式值
        m_BorderStyle = MAX_BORDER_STYLE_VALUE
    Case Else
        m_BorderStyle = New_BorderStyle
    End Select
    Call ShowValue
    Call PropertyChanged("BorderStyle")
End Property

'控制元件邊框寬度屬性
Public Property Get BorderWidth() As Integer
    BorderWidth = m_BorderWidth
End Property

Public Property Let BorderWidth(ByVal New_BorderWidth As Integer)
    If m_BorderWidth = New_BorderWidth Then Exit Property
    Call DrawControlBorder(0) '清除以前的邊框
    Select Case New_BorderWidth
    Case Is < 1
        m_BorderWidth = 1
    Case Is > MAX_BORDER_WIDTH
        m_BorderWidth = MAX_BORDER_WIDTH
    Case Else
        m_BorderWidth = New_BorderWidth
    End Select
    Call ShowValue
    Call PropertyChanged("BorderWidth")
End Property

'控制元件進度值屬性
Public Property Get Value() As Double
    Value = m_Value
End Property

Public Property Let Value(ByVal New_Value As Double)
    Select Case New_Value
    Case Is < m_Min
        m_Value = m_Min
    Case Is > m_Max
        m_Value = m_Max
    Case Else
        m_Value = New_Value
    End Select
    Call ShowValue
    Call PropertyChanged("Value")
End Property

Public Property Get Max() As Double
    Max = m_Max
End Property

Public Property Let Max(ByVal New_Max As Double)
    m_Max = New_Max
    If m_Value > New_Max Then m_Value = New_Max
    Call ShowValue
    Call PropertyChanged("Max")
End Property

Public Property Get Min() As Double
    Min = m_Min
End Property

Public Property Let Min(ByVal New_Min As Double)
    m_Min = New_Min
    If m_Value < New_Min Then m_Value = New_Min
    Call ShowValue
    Call PropertyChanged("Min")
End Property

Private Sub UserControl_Initialize()
    '
    m_ScaleX = Width / ScaleWidth
    m_ScaleY = Height / ScaleHeight
End Sub

Private Sub UserControl_InitProperties()
    '
    m_BackColor = m_def_BackColor
    m_ForeColor = m_def_ForeColor
    m_GuageColor = m_def_GuageColor
    m_ShadowColor = m_def_ShadowColor
    m_HighlightColor = m_def_HighlightColor
    m_BorderStyle = m_def_BorderStyle
    m_BorderWidth = m_def_BorderWidth
    m_Value = m_def_Value
    m_Max = m_def_Max
    m_Min = m_def_Min
    UserControl.BackColor() = m_BackColor
    lblValue.ForeColor = m_ForeColor
    shpMask.FillColor = m_GuageColor
    shpMask.BorderColor = m_GuageColor
    m_PropertySeted = True
    Call ShowValue
End Sub

Private Sub UserControl_Paint()
    Call DrawControlBorder(m_BorderStyle) '重畫邊框
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    '
    m_BackColor = PropBag.ReadProperty("BackColor", m_def_BackColor)
    m_ForeColor = PropBag.ReadProperty("ForeColor", m_def_ForeColor)
    m_GuageColor = PropBag.ReadProperty("GuageColor", m_def_GuageColor)
    m_ShadowColor = PropBag.ReadProperty("ShadowColor", m_def_ShadowColor)
    m_HighlightColor = PropBag.ReadProperty("HighlightColor", m_def_HighlightColor)
    m_BorderStyle = PropBag.ReadProperty("BorderStyle", m_def_BorderStyle)
    m_BorderWidth = PropBag.ReadProperty("BorderWidth", m_def_BorderWidth)
    m_Value = PropBag.ReadProperty("Value", m_def_Value)
    m_Max = PropBag.ReadProperty("Max", m_def_Max)
    m_Min = PropBag.ReadProperty("Min", m_def_Min)
    UserControl.BackColor() = m_BackColor
    lblValue.ForeColor = m_ForeColor
    shpMask.FillColor = m_GuageColor
    shpMask.BorderColor = m_GuageColor
    m_PropertySeted = True
    Call ShowValue
End Sub

Private Sub UserControl_Resize()
    With UserControl.Extender
        If ScaleWidth < MIN_WIDTH Then .Width = m_ScaleX * MIN_WIDTH
        If ScaleHeight < MIN_HEIGHT Then .Height = m_ScaleY * MIN_HEIGHT
    End With
    If m_PropertySeted Then
        Call ShowValue
    Else
        Call DrawControlBorder(m_BorderStyle) '屬性沒加載時，只顯示邊框，不顯示進度
    End If
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    '
    Call PropBag.WriteProperty("BackColor", m_BackColor, m_def_BackColor)
    Call PropBag.WriteProperty("ForeColor", m_ForeColor, m_def_ForeColor)
    Call PropBag.WriteProperty("GuageColor", m_GuageColor, m_def_GuageColor)
    Call PropBag.WriteProperty("ShadowColor", m_ShadowColor, m_def_ShadowColor)
    Call PropBag.WriteProperty("HighlightColor", m_HighlightColor, m_def_HighlightColor)
    Call PropBag.WriteProperty("BorderStyle", m_BorderStyle, m_def_BorderStyle)
    Call PropBag.WriteProperty("BorderWidth", m_BorderWidth, m_def_BorderWidth)
    Call PropBag.WriteProperty("Value", m_Value, m_def_Value)
    Call PropBag.WriteProperty("Max", m_Max, m_def_Max)
    Call PropBag.WriteProperty("Min", m_Min, m_def_Min)
End Sub

Private Sub ShowValue()
    '畫邊框
    Call DrawControlBorder(m_BorderStyle)
    '顯示進度
    With lblValue
        .Caption = Format((m_Value - m_Min) / (m_Max - m_Min), "#0.00%")
        .Move (ScaleWidth - .Width) / 2, (ScaleHeight - .Height) / 2
    End With
    m_ClientWidth = ScaleWidth - (m_BorderWidth + FIX_MARGIN) * 2
    shpMask.Visible = (m_Value > m_Min)
    If (m_Value > m_Min) Then shpMask.Move m_BorderWidth + FIX_MARGIN, _
        m_BorderWidth + FIX_MARGIN, (m_Value - m_Min) * (m_ClientWidth / (m_Max - m_Min)), _
        ScaleHeight - (m_BorderWidth + FIX_MARGIN) * 2
    DoEvents
End Sub

Private Sub DrawControlBorder(ByVal ds As Integer)
    '目前只實作了三種樣式：無邊框，凹陷效果，凸起效果
    Select Case ds
    Case 0 '無邊框，作用背景顏色，覆寫以前的邊框
        Line (0, 0)-(ScaleWidth - 1, m_BorderWidth - 1), m_BackColor, BF
        Line (0, 0)-(m_BorderWidth - 1, ScaleHeight - 1), m_BackColor, BF
        Line (0, ScaleHeight - (m_BorderWidth - 1) - 1)-(ScaleWidth - 1, ScaleHeight - 1), m_BackColor, BF
        Line (ScaleWidth - (m_BorderWidth - 1) - 1, 0)-(ScaleWidth - 1, ScaleHeight - 1), m_BackColor, BF
    Case 1 '凹陷效果
        Line (0, 0)-(ScaleWidth - 1, m_BorderWidth - 1), m_ShadowColor, BF
        Line (0, 0)-(m_BorderWidth - 1, ScaleHeight - 1), m_ShadowColor, BF
        Line (0, ScaleHeight - (m_BorderWidth - 1) - 1)-(ScaleWidth - 1, ScaleHeight - 1), m_HighlightColor, BF
        Line (ScaleWidth - (m_BorderWidth - 1) - 1, 0)-(ScaleWidth - 1, ScaleHeight - 1), m_HighlightColor, BF
    Case 2 '凸起效果
        Line (0, 0)-(ScaleWidth - 1, m_BorderWidth - 1), m_HighlightColor, BF
        Line (0, 0)-(m_BorderWidth - 1, ScaleHeight - 1), m_HighlightColor, BF
        Line (0, ScaleHeight - (m_BorderWidth - 1) - 1)-(ScaleWidth - 1, ScaleHeight - 1), m_ShadowColor, BF
        Line (ScaleWidth - (m_BorderWidth - 1) - 1, 0)-(ScaleWidth - 1, ScaleHeight - 1), m_ShadowColor, BF
    End Select
End Sub

uj5u.com熱心網友回復：

Downloader1.BeginDownload 全域變數, App.Path & "\檔案名"

uj5u.com熱心網友回復：


參考 2 樓 Tiger_Zhao 的回復:
Downloader1.BeginDownload 全域變數, App.Path & "\檔案名"

 已經弄好了不過還是感謝

uj5u.com熱心網友回復：


參考 2 樓 Tiger_Zhao 的回復:
Downloader1.BeginDownload 全域變數, App.Path & "\檔案名"

 已經弄好了不過還是感謝

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/89581.html

標籤：網絡編程

上一篇：對于FANUC系統，用VB語言二次開發

下一篇：求助如何呼叫若快打碼識別網路圖片，有識別本地圖片的范例

標籤雲
其他(157675) Python(38076) JavaScript(25376) Java(17977) C(15215) 區塊鏈(8255) C＃(7972) AI(7469) 爪哇(7425) MySQL(7132) html(6777) 基礎類(6313) sql(6102) 熊猫(6058) PHP(5869) 数组(5741) R(5409) Linux(5327) 反应(5209) 腳本語言(PerlPython)(5129) 非技術區(4971) Android(4554) 数据框(4311) css(4259) 节点.js(4032) C語言(3288) json(3245) 列表(3129) 扑(3119) C++語言(3117) 安卓(2998) 打字稿(2995) VBA(2789) Java相關(2746) 疑難問題(2699) 细绳(2522) 單片機工控(2479) iOS(2429) ASP.NET(2402) MongoDB(2323) 麻木的(2285) 正则表达式(2254) 字典(2211) 循环(2198) 迅速(2185) 擅长(2169) 镖(2155) 功能(1967) .NET技术(1958) Web開發(1951) python-3.x(1918) HtmlCss(1915) 弹簧靴(1913) C++(1909) xml(1889) PostgreSQL(1872) .NETCore(1853) 谷歌表格(1846) Unity3D(1843) for循环(1842)

熱門瀏覽
  • Git本地庫既關聯GitHub又關聯Gitee

    創建代碼倉庫 使用gitee舉例（github和gitee差不多） 1.在gitee右上角點擊+，選擇新建倉庫 ? 2.選擇填寫倉庫資訊，然后進行創建 ? 3.服務端已經準備好了，本地開始作準備 （1）Git 全域設定 git config --global user.name "成鈺" git c ......

    uj5u.com 2020-09-10 05:04:14 more
  • CODING DevOps 代碼質量實戰系列第二課，相約周三

    隨著 ToB（企業服務）的興起和 ToC（消費互聯網）產品進入成熟期，線上故障帶來的損失越來越大，代碼質量越來越重要，而「質量內建」正是 DevOps 核心理念之一。**《DevOps 代碼質量實戰（PHP 版）》**為 CODING DevOps 代碼質量實戰系列的第二課，同時也是本系列的 PHP ......

    uj5u.com 2020-09-10 05:07:43 more
  • 推薦Scrum書籍

    推薦Scrum書籍 直接上干貨，推薦書籍清單如下（推薦有順序的哦） Scrum指南 Scrum精髓 Scrum敏捷軟體開發 Scrum捷徑 硝煙中的Scrum和XP : 我們如何實施Scrum 敏捷軟體開發:Scrum實戰指南 Scrum要素 大規模Scrum:大規模敏捷組織的設計 用戶故事地圖 用 ......

    uj5u.com 2020-09-10 05:07:45 more
  • CODING DevOps 代碼質量實戰系列最后一課，周四發車

    隨著 ToB（企業服務）的興起和 ToC（消費互聯網）產品進入成熟期，線上故障帶來的損失越來越大，代碼質量越來越重要，而「質量內建」正是 DevOps 核心理念之一。 **《DevOps 代碼質量實戰（Java 版）》**為 CODING DevOps 代碼質量實戰系列的最后一課，同時也是本系列的 ......

    uj5u.com 2020-09-10 05:07:52 more
  • 敏捷軟體工程實踐書籍

    Scrum轉型想要做好，第一步先了解并真正落實Scrum，那么我推薦的Scrum書籍是要看懂并實踐的。第二步是團隊的工程實踐要做扎實。 下面推薦工程實踐書單： 重構：改善既有代碼的設計 決議極限編程 : 擁抱變化 代碼整潔代碼 程式員的職業素養 修改代碼的藝術 撰寫可讀代碼的藝術 測驗驅動開發 : ......

    uj5u.com 2020-09-10 05:07:55 more
  • Jenkins+svn+nginx實作windows環境自動部署vue前端專案

    前面文章介紹了Jenkins+svn+tomcat實作自動化部署，現在終于有空抽時間出來寫下Jenkins+svn+nginx實作自動部署vue前端專案。 jenkins的安裝和配置已經在前面文章進行介紹，下面介紹實作vue前端專案需要進行的哪些額外的步驟。 注意：在安裝jenkins和nginx的 ......

    uj5u.com 2020-09-10 05:08:49 more
  • CODING DevOps 微服務專案實戰系列第一課，明天等你

    CODING DevOps 微服務專案實戰系列第一課**《DevOps 微服務專案實戰：DevOps 初體驗》**將由 CODING DevOps 開發工程師 王寬老師 向大家介紹 DevOps 的基本理念，并探討為什么現代開發活動需要 DevOps，同時將以 eShopOnContainers 項 ......

    uj5u.com 2020-09-10 05:09:14 more
  • CODING DevOps 微服務專案實戰系列第二課來啦！

    近年來，工程專案的結構越來越復雜，需要接入合適的持續集成流水線形式，才能滿足更多變的需求，那么如何優雅地使用 CI 能力提升生產效率呢？CODING DevOps 微服務專案實戰系列第二課 《DevOps 微服務專案實戰：CI 進階用法》 將由 CODING DevOps 全堆疊工程師 何晨哲老師 向 ......

    uj5u.com 2020-09-10 05:09:33 more
  • CODING DevOps 微服務專案實戰系列最后一課，周四開講！

    隨著軟體工程越來越復雜化，如何在 Kubernetes 集群進行灰度發布成為了生產部署的”必修課“，而如何實作安全可控、自動化的灰度發布也成為了持續部署重點關注的問題。CODING DevOps 微服務專案實戰系列最后一課：**《DevOps 微服務專案實戰：基于 Nginx-ingress 的自動 ......

    uj5u.com 2020-09-10 05:10:00 more
  • CODING 儀表盤功能正式推出，實作作業資料可視化！

    CODING 儀表盤功能現已正式推出！該功能旨在用一張張統計卡片的形式，統計并展示使用 CODING 中所產生的資料。這意味著無需額外的設定，就可以收集歸納寶貴的作業資料并予之量化分析。這些海量的資料皆會以圖表或串列的方式躍然紙上，方便團隊成員隨時查看各專案的進度、狀態和指標，云端協作迎來真正意義上 ......

    uj5u.com 2020-09-10 05:11:01 more
最新发布
  • windows系統git使用ssh方式和gitee/github進行同步

    使用git來clone專案有兩種方式：HTTPS和SSH：
    HTTPS：不管是誰，拿到url隨便clone，但是在push的時候需要驗證用戶名和密碼；
    SSH：clone的專案你必須是擁有者或者管理員，而且需要在clone前添加SSH Key。SSH 在push的時候，是不需要輸入用戶名的，如果配置... ......

    uj5u.com 2023-04-19 08:41:12 more
  • windows系統git使用ssh方式和gitee/github進行同步

    使用git來clone專案有兩種方式：HTTPS和SSH：
    HTTPS：不管是誰，拿到url隨便clone，但是在push的時候需要驗證用戶名和密碼；
    SSH：clone的專案你必須是擁有者或者管理員，而且需要在clone前添加SSH Key。SSH 在push的時候，是不需要輸入用戶名的，如果配置... ......

    uj5u.com 2023-04-19 08:35:34 more
  • 2023年農牧行業6大CRM系統、5大場景盤點

    在物聯網、大資料、云計算、人工智能、自動化技術等現代資訊技術蓬勃發展與逐步成熟的背景下，數字化正成為農牧行業供給側結構性變革與高質量發展的核心驅動因素。因此，改造和提升傳統農牧業、開拓創新現代智慧農牧業，加快推進農牧業的現代化、資訊化、數字化建設已成為農牧業發展的重要方向。 當下，企業數字化轉型已經 ......

    uj5u.com 2023-04-18 08:05:44 more
  • 2023年農牧行業6大CRM系統、5大場景盤點

    在物聯網、大資料、云計算、人工智能、自動化技術等現代資訊技術蓬勃發展與逐步成熟的背景下，數字化正成為農牧行業供給側結構性變革與高質量發展的核心驅動因素。因此，改造和提升傳統農牧業、開拓創新現代智慧農牧業，加快推進農牧業的現代化、資訊化、數字化建設已成為農牧業發展的重要方向。 當下，企業數字化轉型已經 ......

    uj5u.com 2023-04-18 08:00:18 more
  • 計算機組成原理—存盤器

    計算機組成原理—硬體結構 二、存盤器 1.概述 存盤器是計算機系統中的記憶設備，用來存放程式和資料 1.1存盤器的層次結構 快取-主存層次主要解決CPU和主存速度不匹配的問題，速度接近快取 主存-輔存層次主要解決存盤系統的容量問題，容量接近與價位接近于主存 2.主存盤器 2.1概述 主存與CPU的聯 ......

    uj5u.com 2023-04-17 08:20:31 more
  • 談一談我對協同開發的一些認識

    如今各互聯網公司普通都使用敏捷開發，采用小步快跑的形式來進行專案開發。如果是小專案或者小需求，那一個開發可能就搞定了。但對于電商等復雜的系統，其功能多，結構復雜，一個人肯定是搞不定的，所以都是很多人來共同開發維護。以我曾經待過的商城團隊為例，光是后端開發就有七十多人。 為了更好地開發這類大型系統，往 ......

    uj5u.com 2023-04-17 08:18:55 more
  • 專案管理PRINCE2核心知識點整理

    PRINCE2，即 PRoject IN Controlled Environment（受控環境中的專案）是一種結構化的專案管理方法論，由英國政府內閣商務部（OGC）推出，是英國專案管理標準。
    PRINCE2 作為一種開放的方法論，是一套結構化的專案管理流程，描述了如何以一種邏輯性的、有組織的方法，... ......

    uj5u.com 2023-04-17 08:18:51 more
  • 談一談我對協同開發的一些認識

    如今各互聯網公司普通都使用敏捷開發，采用小步快跑的形式來進行專案開發。如果是小專案或者小需求，那一個開發可能就搞定了。但對于電商等復雜的系統，其功能多，結構復雜，一個人肯定是搞不定的，所以都是很多人來共同開發維護。以我曾經待過的商城團隊為例，光是后端開發就有七十多人。 為了更好地開發這類大型系統，往 ......

    uj5u.com 2023-04-17 08:18:00 more
  • 專案管理PRINCE2核心知識點整理

    PRINCE2，即 PRoject IN Controlled Environment（受控環境中的專案）是一種結構化的專案管理方法論，由英國政府內閣商務部（OGC）推出，是英國專案管理標準。
    PRINCE2 作為一種開放的方法論，是一套結構化的專案管理流程，描述了如何以一種邏輯性的、有組織的方法，... ......

    uj5u.com 2023-04-17 08:17:55 more
  • 計算機組成原理—存盤器

    計算機組成原理—硬體結構 二、存盤器 1.概述 存盤器是計算機系統中的記憶設備，用來存放程式和資料 1.1存盤器的層次結構 快取-主存層次主要解決CPU和主存速度不匹配的問題，速度接近快取 主存-輔存層次主要解決存盤系統的容量問題，容量接近與價位接近于主存 2.主存盤器 2.1概述 主存與CPU的聯 ......

    uj5u.com 2023-04-17 08:12:06 more

Copyright © 2010-2020 有解無憂